{
    my %Scores;
    FillScores( \%Scores ,  "testscores.txt");
    delete $Scores{john};
}

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