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

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

my $dog_ref = \@dog;
my $cat_ref = \@cat;
my $bird_ref = \@bird;

@animal = ($dog_ref , $cat_ref,$bird_ref);
print $animal[2]->[1];