$ perl -le'
my %hash = ( 4 => [ 10, "mango" ], 2 => [ 04, "banana" ], 3 => [ 20, "apple" ] );
 
for my $array ( values %hash ) {
    print $array->[ 0 ];
    }
'
10
20
4