Select Code to Download

my $replace = 0;

...
    next unless # pass of your condition;
    $array[$replace++] = $array[$x];
}

your condition and $array[$replace++] = $array[$_] for 0 .. $#array;