Even more succintly

my $count = 10;

for (0..$count) {
    print "We are on loop # $_\n";
}
[download]