#!/usr/bin/perl -w

%totals = (), %hwsum = (), %hwtimes = ();
while ($line = <STDIN>)
{
    chomp $line;
    ($student, $assign, $grade) = split /:/, $line;
    $totals{$student} += $grade;
    $hwsum{$assign} += $grade;
    $hwtimes{$assign} += 1;
    $average{$assign} = $hwsum{$assign} / $hwtimes{$assign};
}

@all = keys %totals;
@all = sort {$totals{$b} <=> $totals{$a}} @all;
@hwall = keys %average;
@hwall = sort (%average);

print "*** STUDENT TOTALS ***\n";

  foreach $st (@all)
{
    print $st, ":  ", $totals{$st}, "\n";
}

print "*** HOMEWORK AVG ***\n";

foreach $phw (@hwall)
{
    print $phw, ":  ", $average{$phw}, "\n";
}