Select Code to Download

print "Please enter a number: \n";
my ($limit)= <STDIN>;
...
        }
my $average = $sum/scalar(@array);
print "$average\n";

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