my $n =()= split ',', $str, -1;