my @array = (1,1,1,2,3,3,4,4,4,4);
my %count;

$count{$_}++ for @array;

my @ordered =  sort {$count{$b} <=> $count{$a}} keys %count;  

print map {"$_\n"} @ordered;