Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
while (($key, $value) = each(%coins)){
     print $key.", ".$value."\n";
}

Select or download this

 output shown below need to put in order, please let me know how to do
+ that without using Tie::Ixhash 

Nickel, 5
Dime, 10
Quarter, 25