my $BigCalc = do {
    my $SmallCalc;
    ...
    f($SmallCalc);
};