use strict;
use warnings;

use 5.020;

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

my $Zaehler_Values = @ARGV;
print "Values : $Zaehler_Values" , "\n";

my $Schalter = $ARGV[ 0 ];
# print "Schalter : $Schalter" , "\n";

my $Aufruf_Schalter;
my @Aufruf_Parameter;

my %Aufruf_Testumgebung = ( );

my $Aufruf_Schalter_Verarbeitung;

for( my $i = 0; $i < $Zaehler_Values; $i++ )
{
	if ( $ARGV[ $i ] =~ m/-/) 
	{
		print "Schalter : $ARGV[ $i ]" , "\n"; 	
		$Aufruf_Schalter = $ARGV[ $i ];
	}		

	if ( $ARGV[ $i ] !~ m/-/) 
	{
		print "Parameter : $ARGV[ $i ]" , "\n"; 	
		push( @Aufruf_Parameter , $ARGV[ $i ] );
	}
	
	my $Aufruf_Parameter_Verarbeitung = 'Aufruf_Parameter' . "_" . $Aufruf_Schalter;
	   $Aufruf_Parameter_Verarbeitung =~ tr/-//d;
	   
	print "Verarbeitung : $Aufruf_Parameter_Verarbeitung" , "\n";
		
	$Aufruf_Testumgebung{ $Aufruf_Schalter } = @Aufruf_Parameter;	
}

    &Verfiy_Verarbeitung( \%Aufruf_Testumgebung );

# --------------------------------------------------------------------------------------------------------------------------------
					 
sub Verfiy_Verarbeitung {

	print "Verify" , "\n";
	
	my( %Parameter ) = %{ $_[ 0 ] };
	
	# my @TestArray1 = ( 'eins' , 'zwei' , 'drei' );
	# my @TestArray2 = ( 'acht' , 'neun' , 'zehn' );
	# 
	# my %Parameter = ( '-Modify' => \@TestArray1 ,
	#                   '-Neu'    => \@TestArray2 );
	
	my @Test;
	my @Neu;
	
print "-Modify => " . $Parameter{ '-Modify' } , "\n";
print "-Neu    => " . $Parameter{ '-Neu' } , "\n";
	
   if( exists $Parameter{ '-Modify' } )
   {
		print "Gefunden";
   
		@Test = @{ $Parameter{ '-Modify' } };
		print $Test[ 0 ];
		print $Test[ 1 ];
   }

   if( exists $Parameter{ '-Neu' } )
   {
		print "Gefunden";
   
		@Neu = @{ $Parameter{ '-Neu' } };
		print $Neu[ 0 ];
		print $Neu[ 1 ];
   }
}

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

1;