my @queue;
$queue[0] = \[1,2,3,4];

print "$queue[0]\n";
print "${$queue[0]}}\n";
print "@{${$queue[0]}}\n";

my $ref = ${$queue[0]};
print "$ref->[1]\n";

##</code><code>##

REF(0x3a09c)
ARRAY(0x3a1bc)}
1 2 3 4
2