if (!$output_handles{$name}) {
           open($output_handles{$name}, '>', "$name.info")
              or die "Cannot create $name.info: $!\n";
        }

        my $handle = $output_handles{$name};
        print $handle $_;