#!usr/bin/perl
use warnings; 
open (RH, "<rna.txt") || die "cant open the file";
my $arr2 = <RH>;
print "rna sequence is $arr2";
$len2= length($arr2);
print $len2;