Help for this page
sub get_key { join '', sort $_[0] =~ /./g } ... BA BA CA
$VAR1 = { 'AC' => 3, 'AB' => 6 };