$ perl -wle'
use autobox ARRAY => 'MyClass';
sub MyClass::length { return scalar @{$_[0]} }

my $aref = [1,2,3,6,7,8];
print $aref->length'
6