Help for this page
#!/usr/bin/perl -w use strict; ... splice @array, $_, 1 for reverse @delList; print Dumper \@array;
... my @keep; ... push @keep, $element if ($element & 1) != 0; # Add for deletion } ...