$count_G = ( $seq =~ tr/G//);
  $ratio_G = ($count_G/$len);
# print "\n$ratio_G\n";