my %edges;
while (<STREAM>) {
   my($node1, $node2) = split;
   my %seen;
   @{$edges{$node1}} = grep !$seen{$_}++, @{$edges{$node1}}, $node2;
}