my $printfunc = $condition
  ? sub { print @_; }
  : sub { print "MYPRINT: ", @_; }