my @observed = ("ab", "ab", "ad", "an", "bd", "bn", "dn");
my %permCounts;
$permCounts{$_}++ for @observed;