Hi tim.qfs,
..As you can see from the above outputs, this script seems to work very well...
Did you test run this script to check the output? Because the body of your for loop is empty.
More so, you can use perl for loop like:

for my $count (1..1000000){
     ....
}
[download]