foreach $type (keys %count) {
	foreach (keys %count{$type}) {
		print "$type $_ $count{$type}{$_}";
	}
}