通过Perl中的哈希引用数组进行迭代？

#!/usr/bin/perl

use strict;
use warnings;

# 创建一个哈希引用数组
my @array = (
    { name => "Alice", age => 25 },
    { name => "Bob", age => 30 },
    { name => "Charlie", age => 35 }
);

# 使用each函数进行迭代
for my $i (0..$#array) {
    while (my ($key, $value) = each %{$array[$i]}) {
        print "$key: $value\n";
    }
    print "\n";
}

# 使用while循环进行迭代
for my $i (0..$#array) {
    my ($key, $value);
    while (($key, $value) = each %{$array[$i]}) {
        print "$key: $value\n";
    }
    print "\n";
}