$$_ =~ s/\,//g for(\$kosuu, \$kakaku);