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