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