my $BigCalc = do {
    my $SmallCalc;
....
    $smallCalc;
};

##</code><code>##

{ lock $fred; $fred = 3; }

##</code><code>##

{
    my $var;
    sub fred {
        if( $var++ ) {
             ...;
        }
        ...
    }
}