Select Code to Download

#!/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
}
...