#!/usr/bin/perl -w
#test3.pl
 
my $cuenta = 1;
 
#-------------------------------------------------------------------------------------------------
print "Escribiremos desde 000 hasta 100\n";
for $i ( "000" .. "100" ) { 
print "$i\n"; 
}
#-------------------------------------------------------------------------------------------------
print "Escribiremos 100 más, pero con while:\n";
while ( $cuenta <= 100 ) {
print "$cuenta\n"; 
$cuenta++;
}
#-------------------------------------------------------------------------------------------------
print "Fijate que si no le pongo comillas no tomará los ceros al comienzo:\n";
for $i ( 000 .. 100 ) { 
print "$i\n"; 
}
#-------------------------------------------------------------------------------------------------
exit(0);

print "Escribiremos 100 más, pero con while:\n";
while ( $cuenta <= 100 ) {
print "$i\n"; 
$cuenta++;
}

print "Escribiremos 100 más, pero con while:\n";
while ( $cuenta <= 100 ) {
print "$cuenta\n"; 
$cuenta++;
}

print "$cuenta\n";