$g_num=(join '',@array)=~tr/G/G/;