#File: hash1.pl

%states = ("PA" => "Pennsylvania",
           "MA" => "Massachusetts",
	   "MD" => "Maryland",
	   "VI" => "Virginia",
           "OH" => "Ohio",
           "NY" => "New York",
           "CA" => "California");

foreach $k (sort (keys (%states))) {
   print "state $k corresponds to $states{$k} \n";
}