summaryrefslogtreecommitdiff
path: root/t/foo
blob: ace796d88b50922dd64dccf9414d411d9c20f317 (plain)
1
2
3
4
#!./perl -Dst

$ref = [[],2,[3,4,5,]];
print ${$$ref[2]}[2] == 5 ? "ok 16\n" : "not ok 16\n";