array_ref.pl

#!/usr/bin/env perl
use strict;
use warnings;

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

my @animal = (\@dog, \@cat, \@bird);

print ${$animal[2]}[0]."\n"; #原形
print $animal[0]->[1]."\n"; #アローを使ったところ
print $animal[1][0]."\n"; #アロー省略

__END__
eagle
bulldog
mike