$ perl -E'my $x=5; sub X { \(++$x) }  say ${ X() } +     ${ X() };'
14

$ perl -E'my $x=5; sub X { \(++$x) }  say ${ X() } + 0 + ${ X() };'
13