Statement Perl

#!/usr/bin/perl -w
use strict;
my $number = 10;
while () {
    chomp;
    print "You entered: $_\n";
    if ($_ == $number) {
        $_++;
         redo;
    }
    print "Going to read the next number now...\n";
}