open INPUT, "a:scores.txt" || die "Cannot locate input file: $!"; while (){ $ctr = 0; chomp; ($class, @array) = split /:/; foreach(@array){ ($names[$ctr],$score[$ctr]) = split /,\s+/; $ctr++; } } $control = @score; for ($ctr=0; $ctr<$control; $ctr++){ for($sub=$control-1; $sub>$ctr; $sub--){ if ($score[$sub]<$score[$sub-1]){ $temp = $score[$sub]; $score[$sub] = $score[$sub-1]; $score[$sub-1] = $temp; $temp2 = $names[$sub]; $names[$sub] = $names[$sub-1]; $names[$sub-1] = $tem; } } } foreach(@score){ $total += $score[$ct]; $ct++; } $avg = $total/$ct; print "\n\n\tThe class $class has $control students:\n\n"; print "\tThe lowest test score was: $score[1]\n"; print "\tThe highest test score was: $score[$control-1]\n"; print "\tThe average test score was:"; printf ("%.2f %s", $avg,"\n\n"); for ($ctr=0; $ctr<=$control; $ctr++){ print "\t$names[$ctr] scored $scores[$ctr]\n"; }