for my $filename (@fileNames) {
    open $fileHandles[$filename], '<', $filename or die "Can't open $filename: $!";