for $i ( 1 .. $x ) {
  $sum += $i;
}
print $sum;