perl -MData::Dumper -e '$n="1";print Dumper$n;$n++;print Dumper$n;$n--;print Dumper$n' $VAR1 = '1'; $VAR1 = '2'; $VAR1 = 1;