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

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