my $hoge = <STDIN>;

my @array = (1..$hoge);

my $str = 1;

for my $foo(@array){
  $str = $foo + $str;
}