$_ = 1;
f($_+=2, $_+=3);
sub f { print shift, ", ", shift, "\n"; }
print `perl -v`;
__________
6, 6

This is perl, v5.6.0 built for darwin
....