#!/usr/bin/perl
#!/usr/bin/env perl 
 
use strict;
use warnings;
use utf8;
 
open(GRADES, "grades.txt") or die "can't open fucking file: $!\n";
while (my $line = <GRADES>) {
    (my $student, my $grade) = split(" ", $line);
    my $grades{$student} .= $grade . " ";
}
 
foreach my $student (sort keys %grades){
    my $scores = 0;
    my $total = 0;
    my @grades = split(" ", $grades{$student});    
    foreach my $grade (@grades){
        my $total += $grade;
        my $scores++;
    }
    my $average = $total / $scores;
    print "$student : $grades{$student} \tMID: $average\n";
}
 
 

IyEvdXNyL2Jpbi9wZXJsCiMhL3Vzci9iaW4vZW52IHBlcmwgCgp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CnVzZSB1dGY4OwoKb3BlbihHUkFERVMsICJncmFkZXMudHh0Iikgb3IgZGllICJjYW4ndCBvcGVuIGZ1Y2tpbmcgZmlsZTogJCFcbiI7CndoaWxlIChteSAkbGluZSA9IDxHUkFERVM+KSB7CiAgICAobXkgJHN0dWRlbnQsIG15ICRncmFkZSkgPSBzcGxpdCgiICIsICRsaW5lKTsKICAgIG15ICRncmFkZXN7JHN0dWRlbnR9IC49ICRncmFkZSAuICIgIjsKfQoKZm9yZWFjaCBteSAkc3R1ZGVudCAoc29ydCBrZXlzICVncmFkZXMpewogICAgbXkgJHNjb3JlcyA9IDA7CiAgICBteSAkdG90YWwgPSAwOwogICAgbXkgQGdyYWRlcyA9IHNwbGl0KCIgIiwgJGdyYWRlc3skc3R1ZGVudH0pOyAgICAKICAgIGZvcmVhY2ggbXkgJGdyYWRlIChAZ3JhZGVzKXsKICAgICAgICBteSAkdG90YWwgKz0gJGdyYWRlOwogICAgICAgIG15ICRzY29yZXMrKzsKICAgIH0KICAgIG15ICRhdmVyYWdlID0gJHRvdGFsIC8gJHNjb3JlczsKICAgIHByaW50ICIkc3R1ZGVudCA6ICRncmFkZXN7JHN0dWRlbnR9IFx0TUlEOiAkYXZlcmFnZVxuIjsKfQoK