@data{@speciesList} = split "/\t/", $_, scalar @speciesList;