my $i = 0;
while ($i < @filename) {
    ...
    ++$i;
}

##</code><code>##

for my $i (0..$#filename) {
    ...
}