如何在Perl foreach循环中一次读取两个项目？

my %hash = (
    key1 => 'value1',
    key2 => 'value2',
    key3 => 'value3',
    key4 => 'value4',
);

while (my ($key, $value) = each %hash) {
    print "Key: $key, Value: $value\n";
}

my @array = qw(value1 value2 value3 value4);

for (my $i = 0; $i < @array; $i += 2) {
    my $value1 = $array[$i];
    my $value2 = $array[$i + 1];
    print "Value1: $value1, Value2: $value2\n";
}