Select Code to Download

use strict;
use warnings;

my $i=0;
my $j;
...
   $AA[$i][$j] = $_;
   $i++;
}

my $i;
my $j;
...
   $j = (/^[A-Z]) ? 0 : $j+1;
   $AA[$i++][$j] = $_;
}