open(AGG, '>', $aggregate_file);

while ( my ($key1, $val1) = each %noninteracting_hash ) {
        while ( my ($key2, $val2) = each %$val1 ) {
                print AGG join(
                        "\t",
                        $key1,
                        $key2,
                        $noninteracting_hash{$key1}{$key2},
                        $interacting_hash{$key1}{$key2},
                        $literature_hash{$key1}{$key2},
                        $predicted_hash{$key1}{$key2}
                        ), "\n";
                }
        }

close(AGG);