$letter1 = uc $letter1;

if ($letter1 eq 'A') { ... }
if ($letter1 eq 'C') { ... }
if ($letter1 eq 'T') { ... }
# ...