da musst du alle keys durchlaufen, deine regex anwenden und bei erfolg die schleife abbrechen. mit List::Util::first kannst du es höchstens etwas hübscher machen und auf eine "explizite" schleife verzichten.

wenn du zahlen in hash-keys hast, könnte es aber auch sinnvoll sein, dort ein array abzulegen.