$count{$_}++ for my @order = $string =~ /%(.)/sg;