my $n = scalar @{[split ',', $str]};