perl语言实现如下要求：如果数组某个是REDHAWK，将REDHAWK替换成AVM

以下是 Perl 代码实现：

my @array = ('REDHAWK', 'foo', 'bar', 'REDHAWK');
for my $i (0..$#array) {
    if ($array[$i] eq 'REDHAWK') {
        $array[$i] = 'AVM';
    }
}
print join(', ', @array);

输出结果为：AVM, foo, bar, AVM。

希望能够帮到您！