#!/usr/bin/perl -w
use strict;
{
    my $i = 0;
    for ($i = 0; $i<10; $i++) {
	print ("count $i\n");
    }
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
print "count $_\n" for (0..9);