在perl中用另一个名称替换哈希键

我正试图用另一个名字换钥匙。尝试了以下代码，但出现了一些错误：

my @array = qw(1 hello ue hello 3 hellome 4 hellothere);
my %hash = @array;

foreach (Keys %hash) { 
   s/ue/u/g;
}

---

输出错误：test.pl第35行的模零非法。

Perl区分大小写。您正在查找（小写）：

为了进一步收紧代码，实际上不需要遍历键来确定是否存在特定键。以下单条线路可替代for回路：

$hash{u} = delete $hash{ue} if exists $hash{ue};

---

Perl区分大小写。您正在查找（小写）：

为了进一步收紧代码，实际上不需要遍历键来确定是否存在特定键。以下单条线路可替代for回路：

$hash{u} = delete $hash{ue} if exists $hash{ue};

$hash{u} = delete $hash{ue} if exists $hash{ue};