foreach $file (@files) {
        open FH, $file or
            die "Error opening [$file]: $!\n";