Select Code to Download

my @ra = map { ( split )[1] } split /\t/, @data1;

my @ra = map { (split /\t/, $_, 2)[0] } @data1