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