#/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

#print  `clear`;
my %nodes = (
    'GO:001' => [0],
    'GO:002' => [0],
    'GO:003' => [0],
    'GO:004' => [0]
    );
    
my @valuesNode1 = (
    ['red1','GO:001'],
    ['red2','GO:002'],
    ['red3','GO:003']
    );
my @valuesNode2 = (
    ['blue1','GO:001'],
    ['blue2','GO:004']
    );


my %nodeRelation1 = %nodes;
foreach my $ref (@valuesNode1) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation1{$id}) {    
        ${$nodeRelation1{$id}}[0]++;
        push (@{$nodeRelation1{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation1) {
    print "nodeRelation1: $key\t",$nodeRelation1{$key},"\n";#@tmp\n";        
}
print "\n";
  
my %nodeRelation2 = %nodes;  
foreach my $ref (@valuesNode2) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation2{$id}) {
        ${$nodeRelation2{$id}}[0]++;
        push (@{$nodeRelation2{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation2) {
    print "nodeRelation2: $key\t",$nodeRelation2{$key},"\n";#@tmp\n";
}
print "\n";

nodeRelation1: GO:001   ARRAY(0x234f18)
nodeRelation1: GO:002   ARRAY(0x234ffc)
nodeRelation1: GO:003   ARRAY(0x234e34)
nodeRelation1: GO:004   ARRAY(0x18bb230)


nodeRelation2: GO:001   ARRAY(0x234f18)
nodeRelation2: GO:002   ARRAY(0x234ffc)
nodeRelation2: GO:003   ARRAY(0x234e34)
nodeRelation2: GO:004   ARRAY(0x18bb230)