open (WRITEFILE, '>', '/Perl/ExtractedData/data.txt') 
    or die "could not open /Perl/ExtractedData/data.txt: $!";
[und analog weiter]