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

##</code><code>##

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

##</code><code>##

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