#!/usr/bin/env perl
use strict;
use warnings;

my ($length, $width, $depth) = (10, 20, 15);

print "The values are: ", $length, $width, $depth, "\n";

my ($name1, $name2, $name3, $name4) = ('Paul', 'Michael', 'Jessica', 'Megan');

print "Names are: $name1, $name2, $name3, $name4\n";

($name1, $name2, $name3, $name4) = qw/Paul Michael Jessica Megan/;

print "Names are: $name1, $name2, $name3, $name4\n";

($name1, $name2, $name3, $name4) = qw(Paul Michael Jessica Megan);

print "Names are: $name1, $name2, $name3, $name4\n";


my @nums = (1, 2, 3, 4, 5);
print "\@nums=@nums\n";
my @more = 6 .. 1000;
print "\@more=@more\n";
my @none = ();
print "\@none=@none\n";
my @names = qw/Paul Michael Jessica Megan/;
print "\@names=@names\n";
my @all = (@nums, @more);
print "\@all=@all\n";
my @nested = (@nums, \@more);
print "\@nested=@nested\n";

my $all_len = @all;
my $nested_len = @nested;

print "\@all has length $all_len\n";
print "\@nested has length $nested_len\n";


my @array = (1, 2, 3, 4, 5);
print $array[0] . "\n";
print $array[3] . "\n";
print $array[-1] . "\n";
print $array[4] . "\n";
print $array[-1] . "\n";
print $array[$#array] . "\n";