Perl, mit Variable innerhalb While-Schleife außerhalb der Schleife?

Question

Dies scheint wirklich einfach, aber es gibt mir eine harte Zeit herauszufinden, wie ich neu in Perl bin. Ich habe jetzt eine Menge Dokumentation über Schleifen durchgesehen und bin immer noch ratlos... Ich habe einen Sub, der eine while-Schleife enthält, und ich möchte einen Variablenwert aus der Schleife außerhalb der Schleife verwenden (nachdem die Schleife gelaufen ist), aber wenn ich versuche, die Variable auszudrucken oder sie aus dem Sub zurückzugeben, funktioniert es nicht, nur wenn ich die Variable aus der Schleife heraus ausdrucke, funktioniert es... Ich wäre für jeden Ratschlag dankbar, was ich falsch mache.

Funktioniert nicht ($test wird nicht gedruckt):

sub testthis {    
    $i = 1;
    while ($i <= 2) {    
        my $test = 'its working' ;    
        $i++ ;
    }
    print $test ;
}

&testthis ;

Funktioniert, druckt $test:

sub testthis {
    $i = 1;
    while ($i <= 2) {
        my $test = 'its working' ;
        $i++ ;
        print $test ;
    }
}

&testthis ;