$array[1] = "apples\tpears\toranges";
my @fruit = split(/\t/, $array[1]);
print "[$_]\n" foreach @fruit;