open $files{$name}, '>', "$name.out" if (! defined $files{$name});

##</code><code>##

  if (! defined $files{$name})
    {
    open $files{$name}, '>', "$name.out";
    syswrite $files{$name}, "This is a header line for file $name.out\r\n"; 
    }