use Getopt::Long qw( GetOptionsFromArray );

sub do_awesome_things {
    GetOptionsFromArray( \@_,
        'files=s' => \my @files,
        'verbose!' => \my $verbose,
    );
    warn "Going to process files @files. "
       . "Verbose is ".( $verbose ? 'ON' : 'OFF' ).".\n";
}

do_awesome_things -v => -file => 'foo.txt', -file => 'bar.txt';