$ perl -E'$_ = 123; ++( $max = $_ ); say $max; say $_;'
124
123