#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
my @data;
my $data;


open(FH1,"<" , "bla1.txt" ) or die "kann nicht oeffnen bla1 $!";
@data = <FH1>;
   open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
   print OUTDATEN Dumper($data);
   close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH1) or die "kann nicht schließen bla1 $!";

 
 open  (FH2,"<" , "bla2.txt" ) or die "kann nicht oeffnen bla2 $!";
 @data = <FH2>;
    open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
    print OUTDATEN Dumper($data);
    close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH2) or die "kann nicht schließen bla2 $!";


 open  (FH3,"<" , "bla3.txt" ) or die "kann nicht oeffnen bla3 $!";
 @data = <FH3>;
     open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
     print OUTDATEN Dumper($data);
     close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH3) or die "kann nicht schließen bla3 $!";


 open  (FH4,"<" , "bla4.txt" ) or die "kann nicht oeffnen bla4 $!";
 @data = <FH4>;
     open(OUTDATEN, ">>" , "blagesamt.txt" ) or die "Fehler beim oeffnen/anlegen: $!";
     print OUTDATEN Dumper($data);
     close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
 close (FH4) or die "kann nicht schließen bla4 $!";