while ( my ($key, $value) = each(%hash1) ) {
        
        while ( my ($key1, $value1) = each(%hash2) ) {
        
          if ($value eq $value1)
            {
            print "\n$key => $value\n is equal with\n";
            print "$key1 => $value1\n"
            }
        }
        print "$key => $value\n";
    }
[download]

It'll be funnier if you would use hash values as keys and file names as values. Then in order to find if there's same file in another tree you could use something like:

for (keys %hash1) {
    if (exists $hash2{$_}) {
        say "Files $hash1{$_} and $hash2{$_} are equal";
    }
}
[download]

(Not tested)