#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use List::Util 'sum';

my %records;

while ( my $name = <DATA> ) {
    my ($id)    = <DATA> =~ /(\d+)$/;
    my ($score) = <DATA> =~ /(\d+\.?\d*)$/;
    <DATA>;
    chomp( $name, $id, $score );

    $records{$id}{name} = $name;
    push @{ $records{$id}{scores} }, $score;
}

for ( sort { $a <=> $b } keys %records ) {
    my $name   = $records{$_}{name};
    my @scores = @{ $records{$_}{scores} };
    my $mean   = sum(@scores) / @scores;
    say "$name ($_) has an average score of $mean";
}

__DATA__
Jack
Student ID - 12445
Math Score - 45

Jill
Student ID - 234254
Math Score - 90

Jack
Student ID -12445
Math Score2 - 33

Jill
Student ID - 234254
Math Score2 - 10