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

Update: For fun:

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

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

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

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

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

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