my @AoA;
for my $filename (@ARGV){
    open my $filehandle, '<', $filename or die "opening '$filename': $!";
    my (undef, @tmp) = <$filehandle>;
    push @AoA, \@tmp;
    close $filehandle;
    }

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

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'eks';
 print qq{before loop: $x};
 ;;
 for my $x (1, 2, 3) {
   print qq{in loop: $x};
   }
 ;;
 print qq{after loop: $x};
"
before loop: eks
in loop: 1
in loop: 2
in loop: 3
after loop: eks

c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = 'eks';
 print qq{before loop: $x};
 ;;
 for $x (1, 2, 3) {
   print qq{in loop: $x};
   }
 ;;
 print qq{after loop: $x};
"
before loop: eks
in loop: 1
in loop: 2
in loop: 3
after loop: eks