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

open my $IN,  '<', 'genes.tsv';
open my $OUT, '>', 'genesymbol.txt';

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