my $aref = [];
print $aref,"\n";
print $aref + 1,"\n";
print $aref + 2,"\n";
print "mem: ",qx{ps -o vsz= $$};
$aref[$aref +2] = "foo";
print "mem: ",qx{ps -o vsz= $$};
__END__
ARRAY(0xf5dba0)
16112545
16112546
mem:  28964
mem: 154844