Perl hat keine Funktionen in Funktionen.
Du kannst das zwar so hinschreiben, aber bringen tuts nix. Das Ergebnis ist genauso als hättest du die untereinander geschrieben.
Wenn du in einer Funktion eine Funktion haben willst geht das nur so: