$n =  scalar( split ',', $str );
print "$n\n";