sort:

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

Note that this is not a stable sort for the zeroes. For that you could use

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

or even

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

Of course, I'd curse the programmer that used this in production code.