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

##</code><code>##

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

##</code><code>##

$VAR1 = [
          1,
          2,
          3,
          4,
          5,
          6,
          7
        ];
$VAR2 = [
          7,
          6,
          5,
          4,
          3,
          2,
          1
        ];

##</code><code>##

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

##</code><code>##

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