perl -le 'print $n, --$n, $n = 6'