my @array1=readFile("../test.txt");
do something with @array1;
my @array2=readFile("../test2.txt");
do someting with @array2, eventuell mit @array1;
writeFile("../test2.txt, \@array2);
writeFile("../test1.txt, \@array1);