./script.pl -file myfile.txt -file yourfile.txt -file ourfile.txt

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long qw (GetOptions);

my (@Files);

Getopt::Long::Configure("no_ignore_case", "prefix_pattern=(--|-|\/)");
GetOptions ("file=s@" => \@Files);
	
foreach (@Files) {
	#Do stuff with file
	print "$_\n";
}

##</code><code>##

myfile.txt
yourfile.txt
ourfile.txt

##</code><code>##

./script.pl -file *.txt