Kurzer Vorschlag: da die Hash-Keys hier eh nicht interessieren, könntest du auch einfach über values %$hash; loopen und $hash->{$_} jeweils durch $_ ersetzen.

Allerdings ist das map-grep-(keys/values)-Kontrukt natürlich trotzdem eine Schleife, nur dass kein for mehr da steht ;-)