# Build the array: This is a 2-dimensional array, named @lol.
#	The "outer" dimension (1st subscript) is an ordinary
#	Perl array containing 3 elements, each of which is
#	an "anonymous array", indexed by a 2nd subscript, 
#	each of which contains 4 string elements...

@lol = ( 
	 ['X', 'X', 'X', 'X'],
	 ['Aaron L.', 'Ed H.', 'Rosanna G.', 'Christina T.'],
	 ['X', 'Daniel S.', 'Jennifer W.', 'X'],
         ['X', 'X', 'X','X'],
    );

print "From my point of view, the class looks like: \n\n";

$row=@lol - 1;

while ($row >= 0) {
	print "In row ", $row + 1, ": \n";
	$list=$lol[$row];
	$col=0;
	foreach $stu (@$list) {
		printf "%-18s", $lol[$row][$col];
		$col++;
	}
	print "\n\n";
	$row--;
}


print "From your point of view, the class looks like: \n\n";

######################
@lol = reverse @lol; #
######################

$row=@lol - 1;

while ($row >= 0) {
	print "In row ", @lol - $row, ": \n";
			 #^^^^^^^^^#
	$list=$lol[$row];
	$col=0;

	##########################
	@$list = reverse @$list; #
	##########################

	foreach $stu (@$list) {
		printf "%-18s", $lol[$row][$col];
		$col++;
	}
	print "\n\n";
	$row--;
}