anilmwr:

How about:

my @new_array=();
for my $i (@array) {
   if ($i) {
      push @new_array, $i;
   }
   else {
      unshift @new_array, $i;
   }
}
[download]

or, perhaps:

my @new_array = (
    grep( { ! $_ } @array),
    grep( { $_ } @array)
);
[download]

Note: Untested....

...roboticus

When your only tool is a hammer, all problems look like your thumb.