#!/usr/bin/env perl

use strict;
use warnings;

my @one_to_hundred;
for my $i (1..100) {
  $one_to_hundred[$i-1]= $i;
}

my $sum = 0;
for my $num ( @one_to_hundred ) {
#  print $num . "\n";
  $sum += $num;
}

print $sum . "\n";