if ($choice ne 'a', 'r', 'o', 'd', 'e') {
     print "Invalid choice, TRY AGAIN!\n";
}