上述程序改为使用数组

当然可以将程序转换为使用数组来存储基因信息。我们首先定义一个数组，其中每个元素代表一个基因及其外显子列表。这里是一个基于数组的版本：

# 定义DNA序列
my $dna_seq = 'CTCAAAAGTCTAGAGCCACCGTCCAGGGAGCAGGTAGCTGCTGGGCTCCGGGGACAC...';

# 创建基因信息数组
my @genomes = (
    { id => 1, exons => [[1, 3], [6, 8], [10, 12]] },
    { id => 2, exons => [[15, 20]] },
    { id => 3, exons => [[25, 27], [30, 32]] }
);

# 初始化编码序列数组
my @encoded_seqs;

# 遍历基因数组
foreach my $genome (@genomes) {
    my $start = 0;
    foreach my $exon (@{$genome->{exons}}) {
        # 提取外显子片段
        my $exon_seq = substr($dna_seq, $start+$exon->[0]-1, $exon->[1]-$exon->[0]);
        push @encoded_seqs, $exon_seq if length($exon_seq);  # 只添加非空片段
        $start += $exon->[1];  # 更新搜索起始位置到下一个外显子之前
    }
}

# 输出编码序列
foreach my $encoded_seq (@encoded_seqs) {
    printf("基因%d的编码序列: %s\n", $_->id, $encoded_seq);
}

在这个版本中，我们使用了一个名为`@genomes`的数组，其中每个元素都是一个包含基因ID和外显子列表的小型匿名哈希。我们遍历这个数组，逐个提取外显子并加入到`@encoded_seqs`数组中。需要注意的是，这里只添加非空的外显子片段。