Help for this page
perl -E 'our $p = sub { 1 }; my $q = "p"; say $$q->();'
perl -E 'my %dispatch = ( p => sub { 1 } ); my $q = "p"; say $dispatch +{$q}->();'