#!/usr/local/bin/perl
#####################################################################
# Create, load and print an array
#####################################################################

@day;                                 # create an empty array 
$day[0] = 'Sunday';                   # load the array
$day[1] = 'Monday';
$day[2] = 'Tuesday';
$day[3] = 'Wednesday';
$day[4] = 'Thursday';
$day[5] = 'Friday';
$day[6] = 'Saturday';

print @day, "\n\n";                   # print entire array 

for ($i = 0; $i <= $#day; $i++) {     # loop until <= last element
    print $day[$i], "\n";
}
print "\n";
for ($i = 0; $i < @day; $i++) {       # loop until < length of array 
    print $day[$i], "\n";
}
print "\n";