#!perl use Moose::Autobox; use Benchmark qw/timethese cmpthese/; cmpthese( timethese( 0, { autobox => sub { my $array = [ 1, 2, 3 ]; $array->push(4); }, normal => sub { my $array = [ 1, 2, 3 ]; push @{$array}, 4; }, } ) ); Rate autobox nor…