如何使用map()将操作应用于Perl中哈希的每个元素？

#!/usr/bin/perl

# 定义一个哈希
my %hash = (
    key1 => "value1",
    key2 => "value2",
    key3 => "value3",
);

# 使用map()函数将操作应用于哈希的每个元素
map { $hash{$_} .= "new_value" } keys %hash;

# 打印修改后的哈希
print "Modified hash:\n";
while (my ($key, $value) = each %hash) {
    print "$key: $value\n";
}