Perl: While Loop

Perl while loop is quite easy to understand: #!/usr/bin/local/perl $a = "programmingbulls"; $count = 0; while ($count < 10){ print "$a \n"; $count++; } The above program would print programmingbulls 10 times. Another useful example can be when asking for an input from user: #!/usr/bin/local/perl $a = ; chop $a; while ($a ne "programmingbulls"){ print "wrong input \n"; $a = chop $a; }