my @cols = glob('{A,C,G,T}' x $sub_seq_len);