my $foo=do{ my $return;
           {
              unless ($bar) {
                $return=$baz;
                last;
              } elsif ($bar==1) {
                $return=$bob;
                last;
              }
              $return=fnaggle(fubar(foo(bar($bar))));
           }
           $return;
          };