$records{ $key } = - $records{ $key } if $records{ $key } > 0;