for (my $i= 0; $i < @ARGV; $i++) {
   if ($ARGV[$i] eq '--config') {
      splice(@ARGV, $i, 1);
      $i--
   }
}

##</code><code>##

for (reverse 0..$#ARGV) {
   splice(@ARGV, $_, 1) if $ARGV[$_] eq '--config';
}