my %dispatch = map { ; no strict 'refs' ; ($_, \&$_) } qw(sub1 sub2 sub3 ...) ;