foreach my $group (keys %dramatis_personae) {
	print "The members of $group are\n";
	foreach (@{$dramatis_personae{$group}}) {
		print "\t$_\n";
	}
}