Help for this page

Select Code to Download

Select or download this

my $ScoresRef = GetScores( "testscores.txt" );
sub GetScores {
...
    $Scores{matt} = [ 68, 70, 75, 73 ];
    return \%Scores;
}

Select or download this

{
    my %Scores;
...
    $ScoresRef->{matt} = [ 68, 70, 75, 73 ];
    return $ScoresRef;
}