perl／ハッシュの中にハッシュ〜リファレンスとデリファレンス〜

#! usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# ハッシュのハッシュ(ハッシュの中にハッシュがある)
my %hash1=(
    color=>{
        1=>'red',
        2=>'bule',
        3=>'pink'
    },
    number=>{
        a=>111,
        b=>222,
        c=>333,
        d=>444
    },
    japan=>{
        sikoku=>'kouchi',
        tyuugoku=>'okayama'
    }
);

print Dumper \%hash1;
print "\n";

# 要素を追加してみる。
$hash1{greeting}={
    morning=>'mor',
    evening=>'eve'
};

print Dumper \%hash1;
print "\n";

# 要素にアクセスしてみる。
# 出力結果=>pink
print ${$hash1{color}}{3},"\n";
print $hash1{color}->{3},"\n";

# 出力結果=>1red3pink2bule
print %{$hash1{color}},"\n";
print %$hash1{color},"\n";

# 出力結果=>132
print keys(%{$hash1{color}}),"\n";

# 以上をふまえて、%hash1をすべてprintしてみる。
for my $a (keys (%hash1)){
    print "$a=>{\n";
    for my $b (keys (%{$hash1{$a}})){
        print "$b=>${$hash1{$a}}{$b}\n";
    };
    print "}\n";
}

今日は、全然集中力が持たなかった。。。理由は不明。