#!/usr/bin/perl
use strict;
use warnings;

my @files = qw(bla1.txt bla2.txt bla3.txt bla4.txt);
my $output = 'blagesamt.txt';

# NEU! Ausgabedatei vorher loeschen:
unlink $output or die "kann $output nicht loeschen: $!";

open(my $write_fh, '>>', $output) or die $!;
for my $file(@files){
    open(my $fh,'<',$file) or die $!;
    while(my $line = <$fh>){
        print $write_fh $line;
    }
    close $fh;
}
close $write_fh or die $!;