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