#!/usr/bin/perl

%coins = ( "Quarter" , 25,
           "Dime" ,    10,
           "Nickel",    5 );
           
while (($key, $value) = each(%coins)){
     print $key.", ".$value."\n";
}