Perl Data Types: arrays

my @names = ('Tom', 'Dick', 'Larry');

print $names[0], "\n";

push @names, 'Moe';

print join(', ', @names), "\n";

print join(', ', @names[1,3]), "\n";

my $count = @names;

print "The list contains $count names\n";

print "The last name is number $#names\n";