#!/usr/bin/perl
$sum=0;
@array = (1..50);
$count=0;
while (defined($array[$count]))
{
	$sum += $array[$count];
	$count += 1;
	#print "$array[$count]\t $sum\n";
};
print "$sum\n"