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