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))

##</code><code>##

use strict;
use warnings;

my $n=1002;

my $len = 1 + int (10 * $n / 3);

my $pi;

my @a= (2) x $len;

my $nines = 0;

my $predigit = 0;

foreach my $j(1..$n){
    my $q = 0;
    foreach my $i( reverse 1..$len){
        my $x = 10 * $a[$i-1] + $q * $i;
        $a[$i-1] = $x % (2 * $i - 1);
        $q = int($x / (2 * $i - 1));
    }
    $a[0]=$q%10;
    $q=int($q/10);
    if (9 == $q){ ++$nines;   }
    elsif(10 == $q){
          $pi.=$predigit + 1;
          for (my $k = 0; $k < $nines; $k++){$pi.=0}
          $predigit = $nines = 0;
    }
    else{
         $pi.= int $predigit;
         $predigit = $q;
         if(0 != $nines){
              for (my $k = 0; $k < $nines; $k++) {
                  $pi.=9;
              }
              $nines = 0;
        }
    }
}
print $pi=~s/^03/3./r;