#!perl -lp
$%&&print$_+$%;$%=$_