-my ( $run_time_beg, $run_time_end, $options, $in, $out, $record, $keys, $vals_only, $keys_only, $invert,
- $patterns, $regex, %lookup_hash, $key, $op, $val, $found );
+my ( $options, $in, $out, $record, $keys, $vals_only, $keys_only, $invert,
+ $patterns, $regex, %lookup_hash, $key, $op, $val, $found, $total, $grabbed );