my $ref = [ 1,2];
my $another = [3,4];
my @foo = ( $ref, $another);
my @bar = $foo[1];

die $bar[0][1];
__END__
4 at - line 6.