open my $fh1, '>', "Output by RID.txt" or die "Cannot open output.txt: $!";