example:

input:
Please enter a number
6

output:
(1+3+5)/3 = 3


##</code><code>##

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";

##</code><code>##

example:

input:
Please enter a number
52

output:
52 42 32 22 12 2

##</code><code>##

print "Please enter a number: \n";
my $limit = <STDIN>;
chomp $limit;
my $number = $limit;
my @array = ();
	for (my $i = 0; $i <= $limit; $i+=10) {
		push(@array,$number);
		$number -= 10; }
print "@array\n";

##</code><code>##

example:

input:
Enter 4 numbers:
20
55
72
100

output:
55-72-100

##</code><code>##

print "Please enter 4 numbers: \n";
my @numbers = <STDIN>;
chomp @numbers;
my @array = ();
	if ($numbers[0] > 50) {
		push (@array,$numbers[0]) }
	if ($numbers[1] > 50) {
		push (@array,$numbers[1]) }
	if ($numbers[2] > 50) {
		push (@array,$numbers[2]) }
	if ($numbers[3] > 50) {
		push (@array,$numbers[3]) }
my $final = join("-", @array);
print "$final\n";

##</code><code>##

example:

input:
Please enter 4 numbers:
1
2
4
9

output:
2
4

##</code><code>##

example:

input:
6

output:
*
**
***
****
*****
******


input:
3
output:
*
**
***