Select Code to Download

sub union {
  my %seen;
...
  for (@_) { $seen{$_}++ for @$_ }
  return grep $seen{$_} == @_, keys %seen;
}