print "$_\n" for sort { $b <=> $a } @array;