my @n = split ',', $str;
$n = @n;
print "$n\n";

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