my @sorted = join("\n", sort {$b <=> $a} @array);
print foreach @sorted;