$p=4;$n=l();for(1..100000){($s,$a)=&$n;$p=$p-$s+$a}print$p; sub l{$i=1;sub{$i+=2;$f=4/$i;$i+=2;$q=4/$i;($f,$q)}}