>perl -wMstrict -le
"my @AAMatrix = qw( A C D E F G H I K L M N P Q R S T V W Y );
 ;;
 my @AAOcc = (0) x @AAMatrix;
 print qq{@AAOcc};
"
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0