#!/usr/bin/perl

use strict;
use warnings;

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

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

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

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

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 $!;

Eingaben vom Diamantoperator 
Eine andere Möglichkeit, Daten einzulesen, besteht in der Verwendung des Diamantoperators5, <>. Dieser Operator ist hilfreich, wenn es darum geht, Programme zu schreiben, die sich wie Unix6-Standardhilfsprogramme verhalten. Diese können mit verschiedenen Argumenten aufgerufen werden (wie wir gleich sehen werden). Wenn Sie ein Perl-Programm schreiben wollen, das sich wie die Utilities cat, sed, awk, sort, grep, lpr und viele andere verhält, ist der Diamantoperator Ihr Freund. In anderen Fällen wird er Ihnen vermutlich nicht besonders viel nützen. 

@renee fuer mich ist es ok wenn es nur eine kopie ist aber was muessste man aendern wenn es nicht ok waere?
denn die tatsache bleibt ja das die datei nach jedem oeffnen groesser wird!