foreach my $item (sort keys %hash){
   print "The $item is $hash{$item}\n";
}