#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11160457
use warnings;
use Getopt::Long;
$SIG{__WARN__} = sub { die @_ };


@ARGV = qw( --foo 123 --bar 456 --foo 789 something extra );
use Data::Dump 'dd'; dd '@ARGV before', \@ARGV;

my @fooarray;
my @bararray;

GetOptions
  'foo=s' => \@fooarray,
  'bar=s' => \@bararray;

use Data::Dump 'dd'; dd 'fooarray', \@fooarray;
use Data::Dump 'dd'; dd 'bararray', \@bararray;
use Data::Dump 'dd'; dd '@ARGV after', \@ARGV;
[download]

Outputs:

(
  "\@ARGV before",
  ["--foo", 123, "--bar", 456, "--foo", 789, "something", "extra"],
)
("fooarray", [123, 789])
("bararray", [456])
("\@ARGV after", ["something", "extra"])
[download]

yeah, thanks for your code.But I want outputs to be

("fooarray", [123])("bararray",[456])("fooarray",[789])
[download]

,Must keep order, there is a chained transform based on it, so I write my argparser.It works fine.

Ah, I misread. You are completely misusing options. You should provide a better interface.

English is not my native language, and my code is not buggy, it works just like normal argparser do and deal with filenames start with '-', the logic is subtle.

So you hate ffmpeg then?