Perl skips the implementation code for first-line read files _perl

Copy Code code as follows:

#!/usr/bin/perl
Open (READ, "< $file");
ReadLine READ; # Skip the ' the '
while (<READ>) {
My ($id, $axis 1, $axis 2, $axis 3, $value) = split//;
$line = sprintf ("%d%d%d%d%d")
$id, $axis 1, $axis 2, $axis 3, $value, $axis 1 + $axis 2);
Print WRITE $line;
}
Close READ;

Here to say my own ideas, very stupid:
Directly define a scalar variable run again: my $skipfirst = <FH>; Feel good, but if you need to process multiple files at the same time, each need to skip the first line, each need to define a variable, feel too wasteful, readline just help me a big favor.