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

my $x = scalar(@array);
my $average = $sum/$x;
my $final = join("+",@array);
print "\n($final)/$x=$average\n";