while(<>) { print $_; for ($i=0;$i