my %class_room = ("Title1","Location1");
my %date_class_room;
my $s_date = "date1";
$date_class_room{$s_date} = %class_room;

for (keys %class_room) {
	print "Class_Room KEY: $_ VALUE $class_room{$_}\n";
}

for (keys %date_class_room) {
	$a = $_;
	@x = $date_class_room{$_};
	print @x, "\n";
	%b = @x;
	print $a, "\n";
	for (keys %b) {
		$c = $_;
		$d = $b{$_};
		print $c, $d, "\n";
	}
}