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

#my @dog = ("shiba","bulldog");
#my @cat = ("mike","abyssinian");
#my @bird = ("eagle","crow");

#my $dog_ref = \@dog;
#my $cat_ref = \@cat;
#my $bird_ref = \@bird;
#my @animal = ($dog_ref , $cat_ref,$bird_ref);

my @animal =(["shiba","bulldog"],["mike","abyssinian"],["eagle","crow"]);
print $animal[2]->[0]."\n";