Select Code to Download

/bin/perl test.pl input out1 0,2,4,6 0,1,2,3 out2 1,3,5,7 0,1,2,3

for ($ii=1;$ii<=@ARGV-1;$ii+=3)  # three-tuples (outfile, map1, map2)
{
...
  print "map1 : [" . join /,/,$files[(($ii-1)/3)]{map1} . "]\n";
  print Dumper(@files);
}

map1 : [ARRAY(0x1dc518c)]
$VAR1 = {
...
.
.
.

map : [0,2,4,6]
.
.
.