use strict;

my $array = new list qw(foo bar);
my $list  = new list qw(baz qux);

$array += $list;

print "@$array\n";

package list;

use overload "+=" => sub { push @{$_[0]},@{$_[1]};$_[0] };

sub new { 
   my $class = shift;
   my $self = [@_];
   return bless $self, $class;
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)