foreach my $i (0..$#filenames) {
  # ...
}