counting howmany numbers greater than 5 in a given array : 
#having an error saying that prototype not terminated at filename.txt line #number 113 where as line number 113 belongs to a different program which is #running successfully.

sub howmany( my @H = @_;

my $m = 0;

foreach $x (@H) 

{

if ( $x > 5 ) 

{

 $m +=1;

  }

else
{ 

$m +=0;

 }

print"Number of elements greater than 5 is equal to: $m \n";

}

howmany(1,6,9);

    