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