$file = 'irgendwas.log';
@test = ('was','genau','passiert','hier');
open (TEST, "> $file");
print TEST @test;
close TEST;

unlink $file;

@test1 = ('1','2','3','4','5');
open (TEST, "> $file");
print TEST @test1;
close TEST;