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