do{print "miney\n"; print "moh\n";} if $cond;

##</code><code>##

map{print "miney\n"; print "moh\n";} 1 if $cond;

##</code><code>##

grep{print "miney\n"; print "moh\n";} 1 if $cond;

##</code><code>##

sub{print "miney\n"; print "moh\n";}->() if $cond;

##</code><code>##

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

##</code><code>##

print("miney\n"),print("moh\n") if $cond;

##</code><code>##

(print "miney\n"),(print "moh\n") if $cond;