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