my $a;
for( $a=1; $a<100000001; $a=$a+1 ) {
$t = $t + $a;
}
print $t;