my $same = 0;
if (@AoH_curr == @AoH_prev) {
    $same = 1;
    for my $i (0..$#AoH_curr) }
        my $a = $AoH_curr[$i];
        my $b = $AoH_prev[$i];
        if ($a->{node} ne $b->{node}
             || $a->{link} ne $b->{link}
             || $a->{link} ne $b->{link}) {
             $same = 0;
             last;
        }
    }
}