Hey, danke!

globale Variablen funktionieren. :-) Da hätte ich ja auch echt selbst mal drauf kommen können. Aber ich habe leider bisher auch noch zu wenig Ahnung von Perl.
Also einfach das "my" vor dem $a weglassen und schon funktioniert's.