in reply to [Homework Question] Subroutines & References

This might help

#!/usr/bin/perl -w

sub above_mean
{
    my @array=@_;
    my $sum=0;
    foreach $i (@array)
    {
        $sum+= $i;
    }
    
    my $mean = $sum/ @array;
    
    return grep { $_ > $mean} @array;
}

my @a=1..100;
foreach my $i (above_mean(@a))
{
    print "$i\n";
}

[download]

Replies are listed 'Best First'.
Re^2: [Homework Question] Subroutines & References
by SimonPratt (Friar) on Feb 12, 2015 at 09:04 UTC

    And how does this help the OP?

    In case you hadn't noticed, this is a homework question. Giving the OP a working solution (that they likely won't understand) isn't the aim here - helping the OP develop their own working solution (whilst learning the skills required to do so) is the entire point of the exercise.

[reply]
      Thank you for your concern, however, I was able to come up with my own solution before this was posted. In any means, this post was another example of how I could reach my end goal, but i was able to forge my own path to get there. Thanks again!
[reply]

        I'm glad you were able to build your own working solution. I could see you were getting a lot of great help from plenty of people around here, especially AnomalousMonk and just wanted grasshopper!!! to think a bit more before posting complete working code for homework exercises.

        When I was at university, something like 75% of first year students in one of my computing classes submitted the same code for an assignment (someone had copied a solution from a forum for a previous assignment and told their mates about it, leading to lots of people going to the same forums for "help" with the next assignment). They were all caught and individually warned that if it occurred again, the university would kick them out for plagiarism.

[reply]
Re^2: [Homework Question] Subroutines & References
by AnomalousMonk (Archbishop) on Feb 12, 2015 at 17:52 UTC
    foreach $i (@array) { ... }

    Posted code won't run under strictures due to non-declaration of  $i iterator. Making  $i lexical fixes this:
        foreach my $i (@array) { ... }
    (Running with  use strict; and  use warnings; is highly recommended for beginning Perl programmers — and for non-beginners as well!)

    Give a man a fish:  <%-(-(-(-<

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom