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