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"