# our second homework assignment
# a more elegant program to write a blank timetable

# Define an array of days

@Days=( "Mon","Tues","Wed","Thurs","Fri","Sat","Sun");


# Define an array of time slots

@Times=("09-10","10-11","11-12","12-13","13-14","14-15","15-16","16-17");

# print the table

print "+---------------------------------------------------------------+\n";

#print a blank column

print "|\t|";

#print the day headings

foreach $D (@Days)
	{
	print "$D\t|";
	}
print "\n";

#print the time slots

foreach $T (@Times)
	{
	print "+---------------------------------------------------------------+\n";
	print "|$T\t|\t|\t|\t|\t|\t|\t|\t|\n";
	}

#print a last line for closure

print "+---------------------------------------------------------------+\n";
