my @messages = (
  "just right",
  "too high",
  "too low",
);

print $messages[$guess <=> $answer];