for my $location1 (@{$files{$file}}) {
      print "\t$location1\n";
      for my $location2 (@{$files{$file}}) {
        unless ($location1 eq $location2) {