Ab Perl 5.8 könntest du auch noch our() benutzen.
Aber das ist auch nicht sehr empfehlenswert, und gerade bei sehr
vielen Variablen/Namensräumen würd ich IMMER mit Referenzen
arbeiten.

MfG. Matze