Select Code to Download

    $VAR1 = {

             'Tucson' => 'AZ',
...
   5: Jackson, MS

   6: Tucson, AZ

 
#!/usr/bin/env perl 
use strict;
...
    my $state = $cities{$place} ;
    print "$place, $state \n";
}