my @count = $w =~ /$x/g;
my $total = @count;