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

my $new = 'snowscene.' . sprintf( '%04d', $loop) . '.jpg';