Instead of comparing each dest of each module with each dest of any other module, just create a hash of dests and store which modules use it. Then, if the resulting hash has more than one key for a dest, they correspond to the connected modules. I stored the indices in the inner hashes for easier retrieval of the corresponding sources: 
#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my %h = ('module2(' => {source => ['.akjsdk', '.qahwgd'] ,
                        dest   => ['ajhsx', 'uiahs'] },
         'module3(' => {source => ['.x', '.y'] ,
                        dest   => ['z', 'uiahs'] },
         'module1(' => {source => ['.akjsdk1', '.sjkdhs11', '.qahwgd1'
+],
                        dest   => ['ajhsx', 'ajhdj', 'uiahs']});

my %connection;
for my $module (keys %h) {
    for my $dest_index (0 .. $#{ $h{$module}{dest} }) {
        my $dest = $h{$module}{dest}[$dest_index];
        undef $connection{$dest}{$module}{$dest_index};
    }
}
for my $dest (keys %connection) {
    if ((my @modules = keys %{ $connection{$dest} }) > 1) {
        say "Connected:";
        for my $module (@modules) {
            say "\t$module $h{$module}{source}[$_]" for keys %{ $conne
+ction{$dest}{$module} };
        }
    }
}

[download]
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In reply to Re: how to loop through the hash of hash arrays by choroba
in thread how to loop through the hash of hash arrays by prk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.