my $file = 'pfad/zu/der/datei';
open(READFILE,"<$file") or die $!; # Datei zum lesen öffnen
while(my $line = <READFILE>){ # zeilenweise einlesen der Datei
  [...mach was mit der Zeile...]
}
close READFILE; # Filehandle schließen