autobox 

package ARRAY;

sub push {
    my($self, @args) = $_;

    push @$self, @args;

    return $self;
}