use strict;
use warnings;
use Data::Dumper;    # for Dumper()

##</code><code>##

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