my $n = 0;
for ($n = 2 ; $n < $anzahl + 1 ; $n++)
{
    my $filename = $eintraege[$n];
    #...