@$_ = map { $_ ? $_ / $n : 0 } @$_ for values %pwm;