my %seen; $seen{$_}++ for @observed; @permCounts = map { $seen{$_} || 0 } @perms;