do { my @k = keys %hash; $k[rand @k] }