perl／無名ハッシュのデリファレンス

#! usr/bin/perl

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

my %hash1=(
    'koma'=>{
        'age'=>100,
        'gender'=>'f',
        'blood type'=>'AB'
    },  
    'kaku'=>{
        'age'=>200,
        'gender'=>'m',
        'blood type'=>'B'
    },  
    'birth place'=>'okayama',
    'contact'=>'e-mail',
    'message'=>'hello'
);

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

my $ref_hash2={
    'japanese'=>400,
    'second language'=>{
        'English'=>600,
        'chainese'=>234,
        'Portuguese'=>780
    },  
    'total score'=>390892
};

print Dumper $ref_hash2;
print "\n";


# ハッシュのデリファレンスをしてみよう。
print ${$hash1{'koma'}}{'gender'},"\n";
print $hash1{'koma'}->{'gender'},"\n";
print "\n";

print ${$hash1{'kaku'}}{'blood type'},"\n";

print ${$hash1{'kaku'}}{'blood type'},"\n";
print $hash1{'kaku'}->{'blood type'},"\n";
print "\n";

print $hash1{'contact'},"\n";