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)

I'm sure someday soon you will be able to say in perl:

@array += @foo;
# or even
@array += $foo;
[download]

------------
ooo  O\O  ooo tilly was here :,(

I belive in Perl 6 it will be @array ^+= @foo;

-Lee

"To be civilized is to deny one's nature."