Help for this page
my @guesses; GUESS: ...
push @guesses, $guess;
print join(', ', sort { $a <=> $b } @guesses), "\n";