my %messages = (
  -1 => "too low",
   0 => "just right",
   1 => "too high",
);

while (...) {
  print $messages{ $guess <=> $answer }, "\n";
}