Given that the idea is to find out if any of the keys exist in the hash, it would be more efficient to call last and exit the loop once you've found one.

"Perl makes the fun jobs fun
and the boring jobs bearable" - me