- or download this
do{print "miney\n"; print "moh\n";} if $cond;
- or download this
map{print "miney\n"; print "moh\n";} 1 if $cond;
- or download this
grep{print "miney\n"; print "moh\n";} 1 if $cond;
- or download this
sub{print "miney\n"; print "moh\n";}->() if $cond;
- or download this
sub doif(&$) { $_[0]->() if $_[1] }
doif{print "miney\n"; print "moh\n";} $cond;
- or download this
print("miney\n"),print("moh\n") if $cond;
- or download this
(print "miney\n"),(print "moh\n") if $cond;