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