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