for my $key (  shuffle( keys %hash )  ) {
    print "$key => $hash{$key}\n";
}