Select Code to Download

$str="abcz123def456";

...
$nextstr=join("",map{++$_;$_=substr($_,-1,1);} @arr);
print "\nString: $str";
print "\nNext:   $nextstr";

First interpret
String: abcz123def456
...
Second interpret
String: abcz123def456
Next:   bcda234efg567