- my $extra_sql = '';
- $extra_sql .= ' AND acctid NOT IN (', join(',', @recent). ') '
- if @recent;
+ my @recent = grep { ($accountcode_unmatch{$_} + $accountcode_retry) > time }
+ keys %accountcode_unmatch;
+ my $extra_sql = scalar(@recent)
+ ? ' AND acctid NOT IN ('. join(',', @recent). ') '
+ : '';