#!/usr/bin/perl -w
use strict;

my %HoL = (
        one => [ (\&hello, \&goodbye,) ],
        two => [ (\&hello,) ],
);

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

sub hello {
  print "hello";
}

sub goodbye {
  print "bye";
}