my $i = 1;
sub f {$i += 1; $_[0] * $i}
print f(2) + f(3);

##</code><code>##

print do{$i += 1; 2 * $i} + do{$i += 1; 3 * $i};