Select Code to Download

  DB<318> $code = sub { my $a ** $b ** $bla::c }

...
   '$a' => SCALAR(0x3d18da0)
      -> undef
  DB<320>

D:\>perl -MO=Concise,bla -e "sub bla {@a = ($b, my $c)}"
main::bla:
...
7              <1> rv2av[t2] lKRM*/1 ->8
6                 <#> gv[*a] s ->7                    #<-- @::a
-e syntax OK