#!/usr/bin/perl

use DBM::Deep;

my $scores = DBM::Deep->new( 'scores' );

my %hash = map { $_, stats( $scores, $_ ) } qw( Fred Barney );

foreach my $player ( sort keys %$scores )
	{
	$high_score = last_score( $scores, $player )
		if last_score( $scores, $player ) > $high_score;		
	next unless exists $hash{$player};
	
	print "$player has $hash{$player}{last} with average " .
		"$hash{$player}{average}\n";
	}

print "High score is " . $high_score . "\n";



# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
sub last_score { score_n( @_, -1 )            }
sub game_count { scalar @{ $_[0]->{$_[1]} }   }
sub score_n    { $_[0]->{$_[1]}[ $_[2] - 1 ]  }
sub average    { &sum  / &game_count          }

sub sum
	{
	my $sum = 0;
	$sum += score_n( @_, $_ ) for( 1 .. &game_count );
	$sum;
	}

sub stats
	{
	my %hash;
	
	@hash{ qw(name sum average last) } = 
		( $_[1], &sum, &average, &last_score );
		
	\%hash;
	}