LOOP:
        say q/Please input a number (>1):/;
        while(<>){
                chomp;

                say $_;
                goto LOOP;
        }