$"++;_:while(++$"){$"%$_||next(_)for 2..$"-1;print$",$/}