foreach my $row ( @{$alles} )
       {
               open( FILE, ">", $tmptxt )  or die $!;

               print join FILE (";", @{$row}), "\n";

               close(FILE);
       }
}