Select Code to Download

my $o = OO::Module->new;

for my $i ( 0 .. $o->yyy->highest_index ) {
    $o->yyy->set_element( $i, $o->yyy->get_element( $i ) + 1 );
}

our @yyy;
*yyy = \@{ $main::lglobal{ yyy } };

++$yyy[ $_ ] for 0 .. $#yyy