for my $bowler (0..3) {
   ...
}

##</code><code>##

for my $bowler (0..$#scores) {
   ...
}

##</code><code>##

for my $bowler (0..$#scores) {
   my $bscores = $scores[$bowler];
   ...
}

##</code><code>##

$averages[$bowler] = int(($bscores->[0] +
                          $bscores->[1] +
                          $bscores->[2])/3);

##</code><code>##

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

##</code><code>##

my $sum = 0;
$sum += $_ foreach @$bscores;
$averages[$bowler] = int($sum/@$bscores);

##</code><code>##

for my $bowler (0..$#scores) {
   my $bscores = $scores[$bowler];
   my $sum = 0;
   $sum += $_ foreach @$bscores;
   $averages[$bowler] = int($sum/@$bscores);
}

##</code><code>##

use List::Util qw( sum );

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

##</code><code>##

use List::Util qw( sum );

@averages = ();
push(@averages, int(sum(@$_)/@$_))
   foreach 0..@scores;