perl -E 'my %dispatch = ( p => sub { 1 } ); my $q = "p"; say $dispatch{$q}->();'