foreach my $key (keys %$VAR1) {
	print "$key\n";
	foreach my $valref (@{$VAR1->{$key}}) {
		print "\t Name = $valref->{name}\n";
		print "\t Reference = $valref->{reference}\n\n";
	}
}