Select Code to Download

my @AoA;
for my $filename (@ARGV){
...
foreach my $aref (@AoA){
    print "\t [ @$aref ],\n";
    }

c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'eks';
...
in loop: 2
in loop: 3
after loop: eks