$c.=$_ for 1..99;print substr$c,<>-1,1