my %hash = ( 4 =>  [10, "mango"] , 
             2 =>  [04, "banana"] , 
             3 =>  [20, "apple"],  
            );

foreach (keys %hash){ print "$_: $hash{$_}[0]\n"; }