my $counter = 1; # Counter für Zeilennummer
open(R_TXT,"<$file") or die $!; # Datei zum Lesen öffnen
while(my $line = <R_TXT>){ # Zeilenweise einlesen
  $line = $counter." ".$line; # Zeilennummer vorne anfügen
  $counter++;
}
close R_TXT; # Filehandle schließen