my $i = 0;

# ---------------------------------------------------------------------------------------- #

splice( @ARGV , 0 , 4 );

    for ( $i = 0; $i < @ARGV ; $i++ )
    {

        if ( $ARGV[$i] eq 'TRENNER_TS' )
	{
	print "\n";
        print "Eintrag des Trenners : In Ordnung !" , "\n";
        print "Nummer des Arrays    : $i" , "\n";			# Nummer des Arrays für Trennung
		
	@Aufteilung_Arrays_TS = splice( @ARGV , 0 , $i );		# Trennung der TS
		
		} 
		
	if ( $ARGV[$i] eq 'TRENNER_WERTE' )
	{
	print "\n";
        print "Eintrag des Trenners : In Ordnung !" , "\n";
        print "Nummer des Arrays    : $i" , "\n";			# Nummer des Arrays für Trennung
		
	@Aufteilung_Arrays_Werte = splice( @ARGV , 1 , $i - 1 );	# Trennung der Werte
		
	}
		
    }