package main;

my $al = new ArrayList(qw(foo bar baz qux));
print $_,$/ for @$al;

package java::util::ArrayList;
sub new {bless[@_[1..$#_]],shift}

package ArrayList;
use base qw(java::util::ArrayList);
[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)