在 Perl 中，foreach 用于迭代数组或哈希中的每个元素。它的语法如下：
对于数组：
foreach my $element (@array) {
# 在这里操作每个元素 $element
}
对于哈希：
foreach my $key (keys %hash) {
my $value = $hash{$key};
# 在这里操作每个键值对 $key 和 $value
}
在这些示例中，$element 是数组中的每个元素，$key 是哈希中的每个键，$value 是哈希中对应于键的值。您可以在 foreach 循环中执行所需的操作。
