open(FH,"blah.txt") || die $!;
@A = <FH>;
close(FH);

# mach Sachen mit Array...

open(FH,">blah.txt") || die $!;
print FH @A;
close(FH)