while (<>) { $obj.threshold += $_ unless $obj.threshold > $min; }