exfields.pl file1.gz Name,Rank,SerialNumber file2.gz Who,What,Where

to break this into params try this code:

if ($ARGV[3] ne "") {
    $file1 = $ARGV[0];
    @list1 = split (/,/, $ARGV[1]);
    $file2 = $ARGV[2];
    @list2 = split (/,/, $ARGV[3]);
}
else { print "Enter all required parameters"; }
[download]

also note: there can be no spaces in the lists