#!user/bin/perl
use warnings;
use strict;

my @array = (1, 2, 3, 4, 2, 1, 2, 0, 1, 0, 0);
my @newArray = grep{!$_} @array;
push @newArray, grep {$_} @array;