hash_ref.pl

#!/usr/bin/env perl
use strict;
use warnings;

my %dog = (
    name => 'Taro',
    color => 'brown',
);
my %cat = (
    name => 'Tama',
    color => 'white',
);

my %animal = (
    dog => \%dog,
    cat => \%cat,
);

print ${$animal{dog}}{name}."\n"; #原形
print $animal{cat}->{name}."\n"; #アローを使ったところ
print $animal{dog}{color}."\n"; #アロー省略


__END__
Taro
Tama
brown