for my $key ( %HoL ) {
    for my $subref ( @{ $HoL{$key} } ) {
      print "$key -> ", &{$subref}, "\n";
    }
  }