my @guesses;

GUESS: ...

##</code><code>##

push @guesses, $guess;

##</code><code>##

print join(', ', sort { $a <=> $b } @guesses), "\n";