Select Code to Download

# @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;