use strict;
use warnings;

my @bowlers;
my $team_handicap;

for my $bowler (1..4) {
    print 'Please enter Bowler ',$bowler,"'s 3 scores:\n";
    for (0..2)  {
        print '::';
	    my $score = <>;
	    chomp $score;
	    $bowlers[$bowler]{avg} += $score;
    }
	$bowlers[$bowler]{avg} = int ( $bowlers[$bowler]{avg} / 3 );
	
	$bowlers[$bowler]{handicap} = 
	  ($bowlers[$bowler]{avg} >= 200) ?
	  int( (200 - $bowlers[$bowler]{avg} ) * .85) :
	  0;
	  
	$team_handicap += $bowlers[$bowler]{handicap};
}

print "\n\n";

for my $bowler (1..4) {
  print 'Bowler ',$bowler,"'s Average Score:  ",$bowlers[$bowler]{avg};
  print "\tBowler ",$bowler,"'s Handicap:  ",$bowlers[$bowler]{handicap},"\n";
}
print "The team's handicap is:    $team_handicap";