You can debate all day about whether this is good or bad, better or worse (as we seem to be doing on that other thread), but I'm compelled to mention it (-:

{
  last unless $foo > 7;
  bar_func($foo),last if $bar;
  # Or... $bar and do { bar_func($foo); last };
  baz_func($foo), last if $baz;
}
[download]