use v6-alpha;

my @bowlers;
my $team_handicap;

for (1..2) -> $bowler {
  say "Please enter Bowler $bowler's scores:";
  for (0..2) {
      print "Score $_:";
      my $score = =$*IN;
      @bowlers[$bowler]<average> += $score;
  }
  @bowlers[$bowler]<average> = int(@bowlers[$bowler]<average> / 3);
  @bowlers[$bowler]<handicap> = int((200 - @bowlers[$bowler]<average> ) * .85);
  $team_handicap += @bowlers[$bowler]<handicap>;
}
say;
for (1..2) -> $bowler {
  say "Bowler $bowler's Average Score:", @bowlers[$bowler]<average>,
      "\t Handicap: ", @bowlers[$bowler]<handicap>;
}
      
say;
say "The team's handicap $team_handicap";