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