sub First  {                          ... }
sub Second { our $first;              ... }
sub Third  { our $first; our $second; ... }

{
   local our $first  = First();
   local our $second = Second();
   local our $third  = Third();
}