#!/usr/bin/perl

@names1 = ("David", "Daniel", "Justin");
@names2 = qw(Mutasem Micah Arteum);     # avoid annoying quotes

print "@names1\n";
# prints David Daniel Justin

print "@names2\n";
# prints Mutasem Micah Arteum

print "$names1[1]\n";
# prints Daniel, *not* David!

print "$names1[-1]\n";
# prints last element, Justin