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

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

##</code><code>##

#include <stdio.h>

void f( int &a, int &b ) {
    printf( "a: %d, b: %d \n", a, b );
    a = 3;
    b = 4;
}

int main( int argc, char ** argv ) {
    int x = 0;
    f( ++x, ++x );
    printf( "x: %d \n", x );
    return 0;
}

##</code><code>##

$ g++ -o a a.cpp && a
a: 2, b: 2
x: 4