my $i = 0;
sub foo { $i = $i + 1 }

print ($i, ${\$i}, foo(), $i + 0, foo(), foo(), foo(), $i);
### prints: 44112344