DB<106> %coins = ( "Quarter" , 25,
                      "Dime" ,    10,
                      "Nickel",    5 );
 => ("Quarter", 25, "Dime", 10, "Nickel", 5)
 
  DB<107> %cents= reverse %coins
 => (25, "Quarter", 10, "Dime", 5, "Nickel")
 
  DB<108> for $cent (sort {$a<=>$b} keys %cents) {
           print "$cents{$cent},$cent\n"
          }
Nickel,5
Dime,10
Quarter,25