Select Code to Download

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

...
BA
BA
CA

$VAR1 = {
          'AC' => 3,
          'AB' => 6
        };

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

...
BA
BA
CA