my %dispatch = map { $_ => \&{$hash{$_}} } keys %hash;