DB<20> p join "\n", map { "$_   $#{$_}" } grep /_<\(/, keys %::

##</code><code>##

my $coderef = eval <<'EOF';
sub forget_me_not;
sub { print "do some stuff"; }
EOF