Das ist ein typischer Fall, in dem man die Sichtbarkeit (nicht Gültigkeit) der Variablen misversteht.

Eine my-Variable ist nur im aktuellen Block (die sub bla) sichtbar, local-Variablen auch in aufgerufenen Subroutinen:

perldoc perlsub

Unlike dynamic variables created by the local operator, lexical variables declared with my are totally hidden from the outside world, including any called subroutines. This is true if it's the same subroutine called from itself or elsewhere--every call gets its own copy.

Du solltest hier also local verwenden und dann funktioniert es...