my $linesToSkip = 2;
my $discard = <FILE> for 1 .. $linesToSkip;
while ( <FILE> )
{
    # Do something here with the lines of interest.
    ...
}