for my $var (0..9){ #UPDATE: I changed 1-9 to 0-9 print $var; } #actually, this is better . . . but I digress . . . print (0..9); #### my @numbers = (0..9); foreach my $n (@numbers) { print $n; } print "\n", scalar(@numbers), "\n"; #### 0123456789 10 #### my $var; for ($var=1; $var < 10; ++$var){ print $var; } print "\n", $var, "\n";