# File:	controlWhile0.pl
# Title: 	Ask for an integer n. Count till n.
# Author:	Mihaela Malita 
#		Count till? 5
#	 	12345
#		Bye
print "Count till? ";
$n = <STDIN>;			# does not need chop - it is an integer
$i = 0;					# better initialize to 0
while ($i <= $n) {	    # for every element in list
    print $i;         	# $_ is the default counter of the loop
   # $i = $i + 1;		# i is 0 be default 
	$i++;				# same as $i = $i + 1; that is increment variable $i
}
print  "\nBye";
exit;