my %score = map { push @bowled, shift @bowled; $_ => $bowled[-1] } @players;