テストスクリプトとして、以下のようなものを作ってみたんですが・・・個々の値にアクセスできません><;

my $aaa = {
    a => 'あ',
    b => 'い',
    c => 'う'
};

my $bbb = {
    a => 'え',
    b => 'お',
    c => 'か'
};

my $ccc = {
    a => 'き',
    b => 'く',
    c => 'け'
};

my @aaa = (\%aaa, \%bbb, \%ccc);

foreach my $a (@aaa) {
    foreach my $b (keys(%$a)) {
        print %$a->{$b};
    }
}