Select Code to Download

my (@a1,@a2) = ([1,2,3],[3,2,1]);

my (@a1,@a2) = ([1,2,3,4,5,6,7],[7,6,5,4,3,2,1]);
print Dumper(@a1), Dumper(@a2);

$VAR1 = [
          1,
...
          2,
          1
        ];

print "a1\n", Dumper(@a1), "a2\n", Dumper(@a2);

my ( @dirs, @files)= 
   ( @{-d}, @{-f} ) for (readdir DIR);