ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Вобщем решил попробывать изучить perl
В учебнике есть задания по проделанным урокам вот запнулся на 1 из них.

Код:

#!/usr/bin/perl -w

$im_thinking_of=int(rand 10);
print "Введите часло от 0 до 9:";
$guess=<STDIN>;
chomp $guess;
	
	if ($guess>$im_thinking_of) {
		print "perebor!\п";
} elsif ($guess < $im_thinking_of) {
	print "NEDABOR!\п";
} else {
	print "You win";
}

нужно кароче сделать чтобы цикл повторялся пока не будет правильного ответа. все из тыркал че-то не догоню как

Код:

#!/usr/bin/perl -w

$im_thinking_of=int(rand 10);
print "Введите часло от 0 до 9:";
$guess=<STDIN>;
chomp $guess;

while ($guess) {
	if ($guess>$im_thinking_of) {
		print "perebor!\п";
} elsif ($guess < $im_thinking_of) {
	print "NEDABOR!\п";
} else {
	print "You win"; }
}

че-то такое пробую писать но он кароче повторяет ответ до бесконечности. Еси можно ещё поеснить немного. Сразу говарю учеюник скачал 3 часа назад где-то так что нуб полный. Пока несовсем понимаю что я делаю.