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