my $first_line = <DATA>;
 
while (<DATA>) {
  ...
}

##</code><code>##

while (<DATA>) {
  next if $. == 1;
}