while ($x =~ m/%(.)/g) {
  push(@order, $1);
  $count{$1}++;
}