@arr = keys %hash;
$hk = $arr[int(rand(scalar(@arr)))];
$hv = $hash{$hk};