Select Code to Download

while (<>) {
   my ($node) = split /,/;
...
   print $node $_;
   close $node;
}

my %cache;
while (<>) {
...
   print $node $_;
}
for my $n (keys %cache) { close $n; }