use strict;
use warnings;
my @array = qw(a Grant b Yoda c Liberace d None);
my %hash= @array;

CHECK:
print "Who's Buried in Grant's Tomb\n";
print <<ENDING;
a. Grant
b. Yoda
c. Liberace
d. None of the above.
ENDING

while(chomp(my $answer = <STDIN>)){
        if(defined $hash{$answer}){
                print "your Answer is \"$hash{$answer}\".\n";
                print "Thank You.\n";
                #do anything with the Answer....
                exit;
                }else{
                        print "Please Pick a letter between A - D\n";
                        goto CHECK;
                        }
        }