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

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