my $header_row = <>;
# process it

while (<>) {
   # process the file
}