my $header = <>;
while (<>) {
    # process each subsequent record
};