foreach (@mergedlogs) { open FH, ">>mergedlogs.txt" or die "can't open mergedlogs.txt: $!"; print FH "$_\n"; close FH } #### open FH, ">>mergedlogs.txt" or die "can't open mergedlogs.txt: $!"; $| = 0; # just in case foreach (@mergedlogs) { print FH "$_\n"; } close FH;