Line	Statements	Time on line		Code

 9	1002               49.4ms		for $i(reverse 1..$l){
10	3347682	        441ms			    $x=10*$a[$i-1]+$q*$i;
11	3347682	        474ms			    $a[$i-1]=$x%(2*$i-1);
12	3347682	        882ms			    $q=int($x/(2*$i-1))