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";
    }