Wenn Du zwischen dem "sub" und dem "A" noch ein Leerzeichen einfügst, dann wird "Beispieltext" ausgegeben(sonst gibt es nur Fehlermeldungen).

Warum??
Am Anfang ist $TextRef nicht gesetzt. Dann wird aber die Subroutine "A" aufgerufen (&A();). Dort wird eine Variable $Text deklariert und mit "Beispieltext" initialisiert. Dann wird $TextRef mit dem Wert von $Text (also "Beispieltext") gefüllt. Dann wird die Subroutine "B" aufgerufen, die dann $TextRef ausgibt.

Aber wie Ronnie schon sagte, ist das kein schöner Code und eigentlich gehören Lehrer/Profs bestraft, die solchen Code der Öffentlichkeit zugänglich machen ;)