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";