my @numbers = (0..9);
foreach my $n (@numbers) {
	print $n;
}
print "\n", scalar(@numbers), "\n";