sub get_key { join '', sort $_[0] =~ /./g }

my %hash;
while (<DATA>) {
   chomp;
   $hash{get_key($_)}++;
}

use Data::Dumper;
print(Dumper(\%hash));

__DATA__
AB
AB
AB
AC
AC
BA
BA
BA
CA