Select Code to Download

@union = @intersection = @difference = ();
%count = ();
...
  push @{ $count{$element} > 1 ? \@intersection : \@difference
  }, $element;
}

use strict;

...
  retrieve($id);
  $have_local{$id}++;
}