perl -E '@dipept = qw/XX AA BB CC DDAAD AAAAAAA/; $FMat[0][0] = grep(/AA/, @dipept); say $FMat[0][0]'
3