my ($i, $jokekey);
++$i && rand($i) < 1 && ($jokekey = $_) for (keys %hash);