{
    local $, = "\n";
    print(
        sort( { $b <=> $a } @array ),
        ''
    );
}