If the array doesn't change size,

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

is a weird way of doing

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