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

##</code><code>##

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