sub getRandomPairFromHash{
    my $href = shift;
    my $nKeys = keys %$href;
    my $n = 1 + int rand $nKeys;
    my( $key, $val );
    ( $key, $val ) = each %$href while $n--;
    return ( $key, $val )
}