#!/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}."\n";
print "--->".$dog_ref -> {name}."\n";