#!/usr/bin/perl
$sum=0;
@array = (1..50);
foreach (@array)  {
	#$sum=$sum+$_;
	$sum += $_;
};
print "$sum\n"