my $sum = 0;
for my $game (0..$#$bscores}) {
   $sum += $bscores->[$game];
}
$averages[$bowler] = int($sum/@$bscores);