my %threeLtrCts =
   map { $_ => 0 }
   glob q{{A,T,G,C}{A,T,G,C}{A,T,G,C}};