print "$_ => ", $DNA_code{+uc} // '???', "\n" for @sub8;