c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my %cities = (
      Tucson  => 'AZ',
      Boston  => 'MA',
      Jackson => 'MS',
      Dixon   => 'NM',
      Denton  => 'TX',
      Cincinnati   => 'OH',
  );
      print Dumper(\%cities);
  foreach my $place (sort keys %cities) {
      my $state = $cities{$place} ;
      print \"$place, $state \n\";
  }
"
$VAR1 = {
          'Cincinnati' => 'OH',
          'Tucson' => 'AZ',
          'Dixon' => 'NM',
          'Jackson' => 'MS',
          'Denton' => 'TX',
          'Boston' => 'MA'
        };

Boston, MA

Cincinnati, OH

Denton, TX

Dixon, NM

Jackson, MS

Tucson, AZ