#for my $gene ( <HANDLE> ) {
while ( my $gene = <HANDLE> ) {