Try it this way:

my %lookup = map{ join( $;, $_->{node}, $_->{link} ) => $_->{load} } @
+AoHCurr;

exists $lookup{ join $;, $_->{node}, $_->{link} }
    and print "node:$_->{node} link:$_->{link} load: $_->{load} :", 
              $lookup{ join $;, $_->{node}, $_->{link} }
    for @AoHPrev;
[download]

That should work out to be roughly 2000 times faster than nested loops for a 10k X 10k cross-sompare.