#!/usr/bin/perl

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

##</code><code>##

 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