>perl -wle"my($x,$y); $y=$x->{k}; print $x;
HASH(0x225278)

>perl -wle"my($x,$y); $y=$x->[0]; print $x;
ARRAY(0x225278)