Select Code to Download

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

$AoA2[0][0] ++;
print "$AoA1[0][0], $AoA2[0][0]\n";

1, 1
2, 1

1, 1
2, 2