#!/usr/bin/perl -w
$sum=0;
@array = (0..50);
$count=0;
for ($count=1; ($count<51); $count++){
	$sum += $array[$count];
	#$temp=$array[$count];
	#print "\$count=$count sum is $temp\t $sum\n";#trouble shooting left over
	}
print "$sum\n";