sub join_raw{
	sort_datasets($#{$testliste[0]}-1);
        cut_column(-1);	# Indexspalte löschen
        cut_column(-1);	# laufende Nummer löschen
    
	@testliste = (@testliste,@_);
	
	add_column("extensions");
}
	
sub join_sto{
	my $dateiname = shift;
	sort_datasets($#{$testliste[0]}-1);
        cut_column(-1);	# Indexspalte löschen
        cut_column(-1);	# laufende Nummer löschen
    
        my @temp = @testliste;
        @testliste = ();
    
        load_sto($dateiname);
    
        cut_column(-1);	# Indexspalte löschen
        cut_column(-1);	# laufende Nummer löschen
	@testliste = (@temp, @testliste);
	add_column("extensions");
}

sub join_txt{
	my $dateiname = shift;
	sort_datasets($#{$testliste[0]}-1);
        cut_column(-1);	# Indexspalte löschen
        cut_column(-1);	# laufende Nummer löschen
        
        my @temp = @testliste;
        @testliste = ();
    
        load_txt($dateiname);
    
        cut_column(-1);	# Indexspalte löschen
        cut_column(-1);	# laufende Nummer löschen
        @testliste = (@temp, @testliste);
	add_column("extensions");
}