while(<FH>) {
    my $nextline = <FH>;
}