Select Code to Download

my %messages = (
  -1 => "too low",
...
while (...) {
  print $messages{ $guess <=> $answer }, "\n";
}

my @messages = (
  "just right",
...
);

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