$testfile = "./workspace/testfile.log";
$ergfile = "./workspace/result.log";
open (FILE,"<",$testfile) || print "$testfile dont exist";
open (FILE2,">",$ergfile) || print "$ergfile dont exist";
@Array = <FILE>;
foreach(@Array){
; tue etwas
push (@Array2,$data);
}
print FILE2 $data;
close(FILE);
close (FILE2);