Sorry, aber für mich ergibt der Code nichts lesbares.
Auch wenn Perl verteufelt ist, wegen unlesbarem Code, muss man ja nicht oben noch einen draufsetzen.
Ich sehe hier gar kein IRGENTWAS.