Select Code to Download

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";