while ( my ($index, $file) = each @filenames) {... }