# perl -we 'print $a=3,"\n",print $a-5,"\n"'
-2
3
1