#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;    
print Dumper \%ENV;

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

my $dog_ref = \%dog;
my $cat_ref = \%cat;

my %animal = ($dog_ref , $cat_ref);

print ${$cat_ref}{color);