open ...
my $header_line = <FILE>;
while (<FILE>) {
    # data line
}