sub noop { # do nothing return shift; } my $m=20; print noop(++$m) + $m++; # This prints 42 !