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