Using a for loop

  my $N = 100000;       
  my $i = 0;              
  my $j = 0;             
  
  # start timer        
  while $j < $N {     
      $i = $i + $j;  
      $j = $j + 1;  
  }
  # stop timer           

Results (seconds):

              2011.01 

while 0..^N    23.04