Select Code to Download

sub f {
my%s;%r=@_;map{$m{$_}={map{$m{$_}||={};$_=>1}@{$r{$_}}}}keys%r;
reverse sort{($a->{$b})-($b->{$a})}keys%m;
}

#!/usr/bin/perl

my @list = (
...
);

print join (',', map { "'$_'" } f(@list)),"\n";