my %ability_scores = map { $_ => $character{$_} } qw/strength dexterity constitution intelligence wisdom charisma/;