for my $zahl (0 .. $n) {
    my $zahlstr = sprintf "%05d", $zahl;
    # ... mache was mit $zahlstr
}