$pfad_read ="C:\\Perl-Php-Vergleich\\Datei1\\testdatei.txt";
$pfad_write ="C:\\Perl-Php-Vergleich\\Datei2\\perl_writedatei.txt";
print "pfad\n";
#============================== Reads ==========================================

@Lesedatei = ("");               # Array for the Datasets
$i = 0;

open(EINGELESEN, "<$pfad_read") || die "Cant find file to read\n";
while(<EINGELESEN>)              # Runs through the File
 {
  $Lesedatei[$i] = $_;           # Saves the File in an Array
  $i++;
 }
close(EINGELESEN);
print "lesen\n";
#============================== Change==== =====================================

# this Array saves each line of the Lesedatei Array.
@Datenfelder = ("");

$Arraylaenge = @Lesedatei;

for ($i=0;$i<$Arraylaenge;$i++)
{
 @Datenfelder = split(/,/,$Lesedatei[$i]);      # splits a line of the big array
 $Zeile = $i+1;
 @Datenfelder[0] = "\"Zeile ".$Zeile."\"";      # edit the first element of the "each line Array"
 $Lesedatei[$i] = join(',',@Datenfelder);       # stores the edit in the big Array
}
print "bearbeiten\n";
#============================== Write ==========================================

 # opens file to write changes
open(SCHREIBEN, ">$pfad_write") || die "Cant find file to write\n";;

foreach $Dateizeile (@Lesedatei)
 {
  print SCHREIBEN "$Dateizeile";                # write in file
 }

close(SCHREIBEN);
print "schreiben\n";