our $first;
our $second;
our $third;

sub First  { ... }
sub Second { ... }
sub Third  { ... }

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