Select Code to Download

#!/usr/bin/perl
use strict;
...

print "@list\n";
use Data::Dumper;print Dumper \@AoA;

1 2 3 4 5 6 7 8 9 10 11 12
$VAR1 = [
...
            '12'
          ]
        ];