Help for this page

Select Code to Download

Select or download this

sub getRandomPairFromHash{
    my $href = shift;
...
    ( $key, $val ) = each %$href while $n--;
    return ( $key, $val )
}