$_ steht hier für die aktuelle Zeile in der Datei.
Das kommt von der while-Schleife (while(<FH>) ).
Du könntest das auch so schreiben:
while( my $zeile = <FH> ){}
Dann wäre der Inhalt der Zeile nicht in $_ sondern in $zeile.

Der Ausdruck fügt die Zeile übrigens dem Array @ioc hinzu, wenn die Zeile mit psaf anfängt.