Select Code to Download

my My $my

# compile error
$my->{no_such_field} ++;

use strict;
{
...
}
my  My $my = new My;
$my->{one}++;

package My;
sub BEGIN {
    use strict 'refs';
...
{;};
my $my = 'My'->new;
++$$my[1];  ##  <--- array access