my @a = qw( foo bar baz );
my %h = qw( one ichi two ni );

## print evaluates it's args in list context
print "array: ", @a,$/;
print "hash:  ", %h,$/;
print "a & h: ", @a, %h, $/;

__output__

array: foobarbaz
hash:  oneichitwoni
a & h: foobarbazoneichitwoni

##</code><code>##

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

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

__output__

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