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