Perl不能输出到新的文件

open READ,"<bicluster.txt" || die "cannot open";
@rbic=<READ>;
close READ;
open WRITE,">>bicluster_output.txt" || die "cannot open";
foreach $r_bic(@rbic){
    @bic=split(/\s+/,$r_bic);
    print  WRITE "$bic[0] ";
    foreach $i(1..$#bic){
        @bic_=split(/[\( , \)]/,$bic[$i]);
        print WRITE "$bic_[0]:$bic_[$#bic_] ";
    }
    print WRITE "\n";
}
close WRITE;