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