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