%coins = ( "Quarter", 25,
           "Dime",    10,
           "Nickel",  5 );

foreach my $key (sort keys %coins) {
     print "$key: $coins{$key}<br />";
}