my %containers;
while (my ($k, $v) = each (%HoA)) {
	$containers{$v->[1]}++;
}

foreach (sort keys %containers) {
	print "Container $_ has $containers{$_} keys.\n"
}