$ perl -E'sub { $_[0]="fred"; }->($i++); say $i'
1

$ perl -E'sub { $_[0]="fred"; }->(++$i); say $i'
fred