Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my %count;
map { map { $count{$_}++ } keys %$_ } @AoH;
dd sort { $count{$b} <=> $count{$a} || $a cmp $b } keys %count;
  2. or download this
    ("XYZ", "NN", "MM", "AC", "AA", "AB")
("AB", "XYZ", "AA", "AC", "MM", "NN")