_:${~$/&~$;&$^}++;print "perl monks rule!\n";goto _ if(${~$/&~$;&$^}<10);