my @array = qw( ...);
my @remindexes = qw( ... );
my %remindexes;
my @newarray;

for (@remindexes) {
    $remindexes{$_}++;
}

for (my $i = 0; $i <= $#array; $i++) {
    push @newarray, $array[$i] if !$remindexes{$i};
}
[download]