sub join {
	my $art = shift;
	sort_datasets($#{$testliste[0]}-1);
        cut_column(-1);	# Indexspalte löschen
        cut_column(-1);	# laufende Nummer löschen
		
	if ($art eq "txt" or $art eq "sto"){
	    my $dateiname = shift;
	    my @temp = @testliste;
	    @testliste = ();
    
	    load_sto($dateiname) if $art eq "sto";
	    load_txt($dateiname) if $art eq "txt";
    
	    cut_column(-1);	# Indexspalte löschen
	    cut_column(-1);	# laufende Nummer löschen
	    @testliste = (@temp, @testliste);
	}
	
	else { 
	    @testliste = (@testliste,@_) 
	}
	
	add_column("extensions");
}