title: Best way to skip a header when reading in from a text file in Perl?
body: <p>I'm grabbing a few columns from a tab delineated file in Perl. The first line of the file is completely different from the other lines, so I'd like to skip that line as fast and efficiently as possible.</p>
  
  <p>This is what I have so far. </p>
  
  <pre><code>my $firstLine = 1;
  
  while (&lt;INFILE&gt;){
      if($firstLine){
          $firstLine = 0;
      }
      else{
          my @columns = split (/\t+/);
          print OUTFILE "$columns[0]\t\t$columns[1]\t$columns[2]\t$columns[3]\t$columns[11]\t$columns[12]\t$columns[15]\t$columns[20]\t$columns[21]\n";
      }
  }
  </code></pre>
  
  <p>Is there a better way to do this, perhaps without $firstLine? OR is there a way to start reading INFILE from line 2 directly?</p>
  
  <p>Thanks in advance!</p>