$bases{g} += $sub =~ y/G//;