my ($zeroSolvent) = grep {!$recordData{$_}} @solvents;