note
toolic
Your while loop is an infinite loop because you never increment the $counter variable inside the loop.
<p>See also [Basic debugging checklist]
<p>UPDATE:
<blockquote><i>
I would appreciate ALL the help you have.
</i></blockquote>
You can use [doc://qw] to cut down on some typing:
<c>
my @AAMatrix = qw( A C D E F G H I K L M N P Q R S T V W Y );
</c>
<p>You can use [doc://map] and [doc://perlop#Range-Operators] to cut down on some more typing:
<c>
my @AAOcc = map { 0 } 1 .. 20;
</c>
1014935
1014935