Select Code to Download

@array = sort {-($a == 0) || $b == 0} @array;

@array = sort {($b == 0)-($a == 0)} @array;

@array = sort {!$b - !$a} @array;