sub printHash {
    my $href = shift;
    my @href_keys = keys %{$href};
    my $RandKey = $href_keys[int(rand(scalar @href_keys))];
    print "$RandKey $href->{$RandKey}\n";
}