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

{
   my %h;
   First(\%h);
   Second(\%h);
   Third(\%h);
}