my ($a, $b, $c, $d, $e) = ("aaa", "ab000", "123", "00123", "321ba",);
$a++;
$b++;
$c++;
$d++;
$e++;
print "a=$a\nb=$b\nc=$c\nd=$d\ne=$e\n"

##</code><code>##

# now that is golfing.
perl -e '$a="0035";until("$a">50){print++$a,$/}'