#!/usr/bin/perl

use DBM::Deep;

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

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

foreach my $player ( sort keys %$scores )
	{
	$high_score = $scores->{$player}[-1] 
		if $scores->{$player}[-1] > $high_score;
	next unless exists $hash{$player};
	print "$player has $scores->{$player}[-1]\n";
	}
	
print "The high score was $high_score\n";