my %hash = ( 4 =>  [10, "mango"] , 2 =>  [04, "banana"] , 3 =>  [20, "apple"]  );
while(($key,$value) = each (%hash)){
print @$value[0];
}