for my $ID1 (keys %bow1) {
    for my $ID2 (keys %bow2) {
       ...