>>39-40
↓なんかでどう？同じファイルを同時オープンしたとき駄目だけど。これならperl4.0でも動くよ
sub myopen{
　　open($_[0], ">".$_[0]);
　　return $_[0];
}
my $fileA = myopen("a.txt");
my $fileB = myopen("b.txt");
print $fileA "aaaaaaaaa";
print $fileB "bbbbbbbbb";
close($fileA);
close($fileB);

それか、randとかで常に一意なファイルハンドル名を作り続けるか