my $i=0;
my $j;

while <$input>{
   if (/^[A-Z]){
     $j = 0;
   }
   else {
     $j++;
   }
 
   $AA[$i][$j] = $_;
   $i++;
}