That did it, I change a few things, but this should work. I will format the print a bit, but thank again Travis. I also added the rest of my regions, and code for the <> operator.
#!/usr/bin/perl
use warnings;
use strict;
my %region = ( 5 => 'Relay', 70 => 'Chicago', 11 => 'Satsuma',
13 =>...