my $ScoresRef = GetScores( "testscores.txt" );
sub GetScores {
    my( $file ) = @_;
## todo, read file for real
    my %Scores;
    $Scores{tim } = [ 40 , 70, 50, 80 ];
    $Scores{john} = [ 98, 97 , 100, 89 ];
    $Scores{eden} = [ 87, 56, 89, 97 ];
    $Scores{pepe} = [ 93  ,91, 94, 90 ];
    $Scores{leah} = [ 100, 99, 99, 100 ];
    $Scores{tony} = [ 89, 94, 100, 89 ];
    $Scores{matt} = [ 68, 70, 75, 73 ];
    return \%Scores;
}