/bin/perl -w
use strict;
my %h=( k1 => "v1", k2 => "v2", k3 => "v3"); 
my @keys= keys %h; 
my $k= $keys[int rand( @keys)]; 
print "random key: $k\n";'