Help for this page
# @keys = keys %hash; # done ONCE # ($k,$v) = rhe(%hash,@keys); ... $av->[$idx]= $last if $idx < @$av; return( $key, $val ); }
@keys = keys %hash; @vals = values %hash; undef %hash;