#!/usr/bin/perl

use strict;
my $val = 10 ;
my $re = ++$val - $val-- + --$val;
print $re;

output :-
8