for (0..102) {
    $_ = sprintf "%04d\n", $_;
    print;
}