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