open( FILE, ">", $tmptxt )  or die $!;

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

close(FILE);