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

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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;
use English;

$LIST_SEPARATOR = ",";

while(<DATA>) {
    chomp;

    my @a = split /\t/;
    my @b = split "\t";
    my @c = split "/\t/";

    say "@a";
    say "@b";
    say "@c";
}

__DATA__
foo     bar
foo/    /bar

##</code><code>##

$ perl 1119187.pl
foo,bar
foo,bar
foo     bar
foo/,/bar
foo/,/bar
foo,bar
$