sub doif(&$) { $_[0]->() if $_[1] }
doif{print "miney\n"; print "moh\n";} $cond;