--$skimmer->[DGood] if $skimmer->[DGood] > 0;
push @deviant, sprintf("$r->[ROrigin]:%+.1f", $diff);
push @{$skimmer->[DEviants]}, $diff;
--$skimmer->[DGood] if $skimmer->[DGood] > 0;
push @deviant, sprintf("$r->[ROrigin]:%+.1f", $diff);
push @{$skimmer->[DEviants]}, $diff;