Thank You so much for your quick responses!! After amending the program, it now seems to work..
#!/usr/bin/perl use strict ; use warnings ; sub addition { my $sum ; my(@mynumbers) = @_ ; foreach (@mynumbers){ $sum += $_ ; } return $sum } sub avg { my $aver ; my(@mynumbers) = @_ ; $aver = addition(@mynumbers)/($#mynumbers+1) ; print "$aver\n" ; return $aver ; } ## ##THIS NOW WORKS!!! ## my (@numlist, $total, $average, $n, @greater) ; chomp(@numlist = <STDIN>) ; $total = addition(@numlist) ; $average = avg(@numlist) ; $n = 0 ; foreach (@numlist) { if ($_ > $average) { $greater[$n] = $_ ; # push @greater,$_ ; $n++ ; } } if ( $n > 0 ) { print "Following numbers are greater than the average: " ; print "@greater. Array size is $#greater\n" #IS THERE A WAY I CA +N USE "$#greater+1" IN SOME WAY HERE? } else { print "All your numbers are less than or equal to the average\n" ; }
Now how do i use this above...
print "$#greater+1" ?
obviously this does not work as-...is
All said and done.. is this the best way to write the program in terms of coding standards?

In reply to Re^2: cheesy comparison program not working!! by navinjathan
in thread cheesy comparison program not working!! by navinjathan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.