my $fh = $files{$name};
  print $fh "$data\n";