use strict;
use warnings;

my $arr2 = <DATA>;
chomp($arr2);
print "rna sequence is $arr2\n";
my $len2= length($arr2);
print $len2;

__DATA__
CUGUACAGCCUCCUAGCUUUCC