Массив на PERL

$ echo -e '111\n666\n333\n111\n444\n666\n666' \
> |awk '{_[$0]++}END{PROCINFO["sorted_in"]="@val_num_desc"; for (i in _) print _[i], i}'
3 666
2 111
1 444
1 333

#!/usr/bin/perl 

use strict;
use warnings;

sub uniq {
    foreach (@_) {
        my %hash = map { $_, 1 } @$_;
        @$_ = keys %hash;
    }
}

my @A = (1,2,3,1,3,4,5,2,2,3,4,5,2,3,2,4,3,3,5,6,4,1,2,4,);

my %rate = ();

$rate{$_}++ foreach @A;

my @uniq_A = @A;
uniq \@uniq_A;

my @sorted = sort {$rate{$b} <=> $rate{$a}} @uniq_A;

print "@sorted\n";

#!/usr/bin/perl 

use strict;
use warnings;

my @A = (1,2,3,1,3,4,5,2,2,3,4,5,2,3,2,4,3,3,5,6,4,1,2,4,);

my %rate = ();

$rate{$_}++ foreach @A;

my @uniq_A = keys %rate;

my @sorted = sort {$rate{$b} <=> $rate{$a}} @uniq_A;

print "@sorted\n";

@A = (1,2,3,1,3,4,5,2,2,3,4,5,2,3,2,4,3,3,5,6,4,1,2,4,);
$s = join '', sort @A;
push @a, $1 while $s =~ /\G(\d*?(\d))(?!\2)/gc;
map { print substr $_, 0, 1 } sort { length($a) <=> length($b) } @a

@A = (1,2,3,1,3,4,5,2,2,3,4,5,2,3,2,4,3,3,1,2,4,);
++$h{$_} for @A;
print sort { $h{$a} <=> $h{$b} } keys %h;