#!/usr/bin/perl

# A list is ordered scalar data.  An array is a variable that holds a list.
# Array indicies start at 0 instead of 1.

# List
print "Lists:\n";
print (1,2,3);
print "\n";
print (1..10);
print "\n";
print ('Tom', 'Randal', 'Larry');
print "\n\n";

# Array
print "Arrays:\n";
@author = ('Tom', 'Randal', 'Larry');
print @author;
print "\n\n";

# Extracting array elements
print "Array element:\n$author[2] created Perl.\n";
print "$author[2], $author[1], and $author[0] wrote the Camel.\n";
print "$author[-1], $author[-2], and $author[-3] wrote the Camel.\n\n";

# Array slice
print "Array slice:\n";
print @author[0,1];
print "\n";
print @author[1,2];
print "\n";
print @author[1..2];
print "\n\n";

# Array in scalar context
$array_length = @author;
print "Array length example:\n\@author is $array_length elements long.\n\n";
print "Scalar context:\n";
print @author . "\n\n";
print "List context:\n";
print((@author), "\n\n");

# Index of last array element
print "Last index example:\nThe last index of \@author is $#author.\n\n";

# push
print "push example:\n";
push(@author, 'Doug');
print @author;
print "\n\n";

# pop
print "pop example:\n";
$yeah_right = pop(@author);
print @author;
print "\n";
print "Yeah, right!: $yeah_right\n\n";

# unshift
print "unshift example:\n";
unshift(@author, 'Doug');
print @author;
print "\n\n";

# shift
print "shift example:\n";
$yeah_right = shift(@author);
print @author;
print "\n";
print "Yeah, right!: $yeah_right\n\n";

# join
print "join example:\n";
print join(',', @author) . "\n\n";