#!/usr/bin/perl -w

use strict;

my $count = 10;

for(my $i=0;$i<$count;$i++) {
    print "Dollar count = " . $i . "\n";
}