#!/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);

print $animal[2]->[0];