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);