package Average; # D e c l a r e  a  p a c k a g e
                # A v e r a ge  a  l i s t  o f  g r a d e s
sub av {
$total = 0;
@grades = (3,4,5);

$num_of_grades =$#grades + 1;
foreach $grade ( @grades ) {
     $total += $grade;
}
 $res = $total/$num_of_grades;   #  W h a t  g e t s  r e t u r n e d
#print $res;
return $res;
}

1;
#&av;

##</code><code>##

use warnings;
use Average;

$res = Average::av();
print $res;