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