In der Subroutine ist $_ erstmal gesetzt (kannst Du mit einem print $_ vor der while-Schleife testen). Und dann versuchst Du im Schleifenkopf $_ zu verändern...