$ perl -E '$x = $y = "A3"; $y + 0; $x++; $y++; say "$x $y"'
A4 1
$