Question & Answer: Can someone explain each line?…..

#! usr/bin/perl
print “Enter the Quiz score: “;
##Ask user to enter the score
$quiz = <>;
print “Enter the Activity score: “;
##Ask user to enter the Activity score
$classactivities = <>;
print “Enter the homework score: “;
##Ask user to enter the homework score
$homework = <>;
print “Enter the labs score: “;
##Ask user to enter the labs score:
$labs = <>;
print “Enter the discussion score: “;
##Ask user to enter the discussion score:
$discussion = <>;
print “Enter the exams score: “;
##Ask user to enter the exams score:
$exams = <>;
my %hash = ($quiz,
$classactivities,
$homework,
$labs,
$discussion,
$exams );

my @scores = (65,67,78,90); #array of number
my $returned_values; #variable declaration
$returned_values = sum(@scores); #calling sum function to calculate the sum
print “sum value = $returned_values n”;#print statement
$returned_values = percent(5,20); #pass any value here to get the percent
print “percent value = $returned_values n”;
$returned_values = grade(72);#function call to grade to get the grade
print “grade $returned_valuesn”;

sub sum{
my @score_list = @_; #parameters are stored in @_
my $result = 0;
for (@score_list) {
$result = $result + $_; #computing sum
}
return $result; ##return the sum
}
sub percent{
my($first,$second) = @_;
my $result = ($first*100)/$second; #calculate percent
return $result;
}
sub grade{
my $percentage = $_[0];
return “unknown grade” if($percentage > 100); #passed value is greated then 100
return “A+” if($percentage >= 95.0 and $percentage <= 100.0); ##if percent is between 95 to 100
return “A” if($percentage >= 90.0 and $percentage <= 95.0);##if percent is between 90 to 95
return “A-” if($percentage >= 87.5 and $percentage <= 90.0);##if percent is between 87.5 to 90
return “B+” if($percentage >= 85.0 and $percentage <= 87.5);##if percent is between 85 to 87.5
return “B” if($percentage >= 82.5 and $percentage <= 85.0);##if percent is between 82.5 to 85
return “B-” if($percentage >= 80.0 and $percentage <= 82.5);##if percent is between 80 to 82.5
return “C+” if($percentage >= 77.5 and $percentage <= 80.0);##if percent is between 77.5 to 82.5
return “C” if($percentage >= 70.0 and $percentage <= 77.5);##if percent is between 70 to 77.5
return “D” if($percentage >= 60.0 and $percentage <= 70.0);##if percent is between 60 to 70
return “F” if($percentage <= 60.0);
}

=================
Comments explain each line

See Output to understand more and relate