package My::Overloaded::Array; use overload '+=' => 'my_push'; sub my_push { my $self = shift; push @{$self}, @_; }