use Data::Dumper;

my @array;
my @other_array = qw ( First Last Email );
my @yet_another_array = qw ( Perl Monks perl@perlmonks.org );
push @array, \@other_array;
push @array, \@yet_another_array;
push @array, [ 'Perl', 'Hacker', 'nobody@nowhere.com' ];

# now pick out the 3rd field of the second record.
print $array[1][2],"\n";

print Dumper(@array);