my @a = ( ["one"], ["two"] );
my %h = ( a => \@a );

print "array: ", @a, $/;
print "hash:  ", %h, $/;

__output__

array: ARRAY(0x80fbb0c)ARRAY(0x80fba1c)
hash:  aARRAY(0x8107d84)