使用perl语言实现如下要求：遍历某数组每个元素，如果某个元素是'REDHAWK'，将'REDHAWK'替换为'AVM'.

以下是使用 Perl 语言实现该要求的代码：

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

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