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

##</code><code>##

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