while (<>) {
   my ($node) = split /,/;
   open $node, ">>$node" or die "a horrible death!";
   print $node $_;
   close $node;
}