my $n = 506;
for my $zahl (0 .. $n) {
    printf "%05d\n", $zahl;
}