push @p, @- while $l =~ /,/g;