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;