my @names = ('Tom', 'Dick', 'Larry'); say @names[0]; push @names, 'Moe'; say join(', ', @names); say join(', ', @names[1,3]); say "The list contains { @names.elems } names"; say "The last name is number { @names.end }";