print "Please enter a word from the letters above: "; 
chomp(my $word = <STDIN>); #INPUT WORD 


if ($word =~ /[$random_string]$/i) { 
print "Good word\n"; 

last; 
} 
else { 
print "try again\n"; 
print "\n"; 
}