#This will be my second homework, where I will optimise the timetable from last week.
#first I will define some variables and arrays

$Trenn = "\t|";

$mi = "Mittag";

#I will have an array with the daynames

@day = ("Monday", "Tuesday", "Wednesday", "Thursday", "Friday\t");

#I will have a variable with the number of the array day

$noofday = @day;

#I will have an array with the time

@time = ("8-10", "10-12", "12-13", "13-15", "15-17");

#I will have a variable with the number of the array time

$nooftime = @time;

#Now let«s start with the program
print " Zeit $Trenn ";

for($m=0; $m<$noofday; $m++)
	{
	print $day[$m]; print $Trenn;
	}
	
print "\n";

#Now I can write the rest of the timetable.

print " -----------------------------------------------------------------------------------------\n";

for ($x=0; $x<$nooftime; $x++)
	{
	print $time[$x];
	for($m=0; $m<6; $m++)
		{
		print $Trenn;
		print"\t";
		}
	print "\n";
	}