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