Help for this page

Select Code to Download

Select or download this

use List::MoreUtils qw/uniq/;

...
  say $resultsfh join (',', 'MISMATCH', $fqdn, @serials);
  push @errors, join (',', 'MISMATCH', $fqdn, @serials);
}