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