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