for my $count (1..1000000){
     ....
}