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