$n =  @{[ split ',', $str ]};
print "$n\n";