my $count = 0;
my $seqlinec = 2;
while ( <INFILE> ) {
    if ( $seqlinc eq $count ) {
        print "$_\n";
    }
    $seqlinec += 4;
}