my %score=map{$players[$_],$bowling_scores[$_]} 0..$#players;