Du meinst wahrscheinlich P09, wie schon Renee sagte, das liegt daran, dass du $LEperiod mit my lokal machst und in Perl heißt das, im Block lokal also nur innerhalb der Klammern {....} ist die Änderung gültig.