foreach (@data)                  #Durchlaufen des arrays @data
{

        for($i=1; $i<=3; $i++)

	{
	       
        my $j=$i+1;
       
       
	if (m/Sec\_$i/ .. m/Sec\_$j/)
	
	{
		
		push(my @dat_($i), $_);                 # ohne die Laufvariable $i gibt es hier keine Probleme
		
		#pop(@dat_($i));			# Löschen des letzten array elements
	}
	}
		
}



print @dat_($i);