sub OO::get_a{ my( $o ) = @_; $o->{a} }; sub OO::set_a{ my( $o, $v ) = @_; $o->{a} = $v };;
sub OO::get_b{ my( $o ) = @_; $o->{b} }; sub OO::set_b{ my( $o, $v ) = @_; $o->{b} = $v };;
sub OO::get_c{ my( $o ) = @_; $o->{c} }; sub OO::set_c{ my( $o, $v ) = @_; $o->{c} = $v };;
sub OO::adjust_a{ my( $o ) = @_; $o->set_a( $o->get_a() + 1 ) };;

$t = time; 
$_->adjust_a() for @AoH; 
say time() - $t;;
6.20793199539185