#! perl -slw
use strict;

my %cities = (
    Tucson  => 'AZ',
    Boston  => 'MA',
    Jackson => 'MS',
    Dixon   => 'NM',
    Denton  => 'TX',
    Cincinnati   => 'OH',
);

my @sorted = sort keys %cities;
my $n = 0;
printf "%d: %s, %s\n", ++$n, $_, $cities{ $_ } for @sorted;

__END__
C:\test>1144458
1: Boston, MA
2: Cincinnati, OH
3: Denton, TX
4: Dixon, NM
5: Jackson, MS
6: Tucson, AZ