$gene = [[['acctcggt','acctgataaa'],['cctggatcctt','ctggttagt'],['ctattacccg','ttagttcaa','atgttagg']],
[['acggtaaaa','acttttt'],['ctgatgaggat','ctggggtttgggg'],['ctattatttttg','ttaggggttggg','atgttccccccc']]];
print "@{$gene}\n";
print "@{$gene->[1]} \n";
print "@{$gene->[0]->[2]} \n"; # atenție la modul în care s-a realizat dereferirea
print "$gene->[0]->[2]->[1] \n";