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