while (defined(my $_ = <GENOTYPED>))