#!/usr/bin/perl
use warnings;
use strict;
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 (@data);
  print OUTDATEN "\n";
  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 (@data);
   print OUTDATEN "\n";
   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 (@data);
    print OUTDATEN "\n";
    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 (@data);
    print OUTDATEN "\n";
    close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
close (FH4) or die "kann nicht schließen bla4 $!";