@data{@speciesList} = split(/\t/, $_, scalar @speciesList);
#                          ^    ^ remove "