Select Code to Download

# these will be different
#
...

print $aoa1[2]."\n";
print $aoa2[2]."\n";

use strict;
use warnings;
...
print Dumper(\@aoa1);
print Dumper(\@aoa2);