You also don't need int because indexing automatically int's it. {grin}

But you are computing the keys twice, and that's expensive for large hashes. Perhaps this instead:

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

-- Randal L. Schwartz, Perl hacker