print "Please enter a number: \n";
my ($limit)= <STDIN>;
chomp $limit;
my $sum = 1;
my @array = ();
	for (my $i=1; $i<=$limit; $i+=2)
		{
		$sum += 2
		push(@array,'1')
		}
my $average = $sum/scalar(@array);
print "$average\n";

##</code><code>##

print "i: $i, sum: $sum, array: @array, scalar: ", scalar(@array), "\n";