sub OO::get_a{ my( $o ) = @_; die unless ref( $o ) eq 'OO'; $o->{a} }; 
sub OO::set_a{ my( $o, $v ) = @_; die unless ref( $o ) eq 'OO'; die unless looks_like_number( $v ); $o->{a} = $v };;
sub OO::get_b{ my( $o ) = @_; die unless ref( $o ) eq 'OO'; $o->{b} }; 
sub OO::set_b{ my( $o, $v ) = @_; die unless ref( $o ) eq 'OO'; die unless looks_like_number( $v ); $o->{b} = $v };;
sub OO::get_c{ my( $o ) = @_; die unless ref( $o ) eq 'OO'; $o->{c} }; 
sub OO::set_c{ my( $o, $v ) = @_; die unless ref( $o ) eq 'OO'; die unless looks_like_number( $v ); $o->{c} = $v };;

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