probier mal mit use strict; dann sagt perl warum der code sch... ist:

Global symbol "$TextRef" requires explicit package name at
Global symbol "$TextRef" requires explicit package name at
Execution of test001.pl aborted due to compilation errors.

immer gut zum debuggen!

use strict;
&A();
sub B() {
print $TextRef, "\n";
}
sub A() {
my $Text = "Beispieltext";
$TextRef = $Text;
&B();
}