#this script tested out a few things I learned along the way:
#integers are strings which can also be integers.
#also, fun with hashes and arrays.

@list=(1,2,3);		#creates an array
foreach $list(@list) {	#for loop
	$list2.=$list;	#acts as if each term is a string and concatenates
}
print $list2,"\n";	#prints
print $list2+1,"\n\n";	#forces variable to be a number

%schedules=(		#creates a hash storing schedules of 3 students
	"Katherine Jane Lai"=>["unscheduled","Gov","CSAP","TA","Orchestra",
			"Physics AP","English AP",],
	"Kuo-Yen Lo"=>["unscheduled","AP Calculus BC","TA","Art","Gov",
			"Physics AP","English AP",],
	"Elaine Liu"=>["Gov","Business","CSAP","AP Calculus BC","Orchestra",
			"Contemp. Lit.","unscheduled",],
);			#keys of hash are students' first names
			#hash of arrays

sub disp {
	print "\n";
	foreach $student(sort keys %schedules) {  #executes for loop for each
		print "Name: $student\n";	  #key in order of first name
		foreach $i(0 .. $#{$schedules{$student}}) {
			print $i+1," $schedules{$student}[$i]\n";
		}
		print "\n";
	}
}

print "Enter in your name: ";
$user=;
foreach $i(0 .. 6) {
	print "Enter your Period ",$i+1," class: ";
	chomp ($schedules{$user}[$i]=);
}
disp();

    Source: geocities.com/mara_042/perl

               ( geocities.com/mara_042)