$num = '0000';
for(1..1000) {
  print ++$num,"\n";
}

##</code><code>##

for my $num ('0000' .. '1000') {
    ...
}