X:for(my$x=1;;){$x%$_||next(X)for(2..$x++);print$x.$/}

##</code><code>##

X:for(my$x=1;;){$x%$_||next(X)for(2..$x++);warn$x.$/}

##</code><code>##

X:for($x=1;;){$x%$_||next(X)for(2..$x++);warn$x.$/}

##</code><code>##

X:for($x=1;;){map{$x%$_||next X}2..$x++;warn$x.$/}

##</code><code>##

for($x=1;;){map$x%$_||next,2..$x++;warn$x.$/}

##</code><code>##

$x++;{map$x%$_||redo,2..$x++;warn$x.$/;redo}