Select Code to Download

my @new_array=();
for my $i (@array) {
...
      unshift @new_array, $i;
   }
}

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