for($i=2;@p<50;++$i){($x=!($i%$_))&&goto _ for@p;push@p,$i;_:print"$i,"x!$x}