Select Code to Download

while (my ($key, $subs) = each %HoL) {
    foreach my $sub (@$subs) {
...
        # or &$sub;
    }
}

for my $key (keys %HoL) {
  for my $i (@{$HoL{$key}}) {
...
    # or &$i;
  }
}