sub unique {
  my @refs = @_;
  my %files = ();
  foreach my $ref (@refs) {
    $files{$_}++ foreach (@$ref);
  }
  return [keys %files];
}