$gene = [['acctcggt','acctgataaa'],['cctggatcctt','ctggttagt'],['ctattacccg','ttagttca','atgttagg']];
print "@$gene \n";
print "@{$gene}\n";
print "@{$gene->[1]}\n";
print "$gene->[1][0] \n";
print "$gene->[1]->[0] \n";
print "$gene->[2]->[2] \n";