my $first;
my $second;
my $third;

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

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