Just as a suggestion, you may also want to consider ignoring the case of the input. For example if someone enters 'c' then it doesn't pass the conditional. You could use a simple regex such as if ($CorE =~ /^C/i) which would also eliminate the need for chomping.