Select Code to Download

use Modern::Perl qw/2015/;
use autodie;

...
open my $OUT, '>', 'genesymbol.txt';

say $OUT ( split "\t" )[1] while (<$IN>);