for my $w ("a","b","c","d","g","u","x","j","k") {
    print $count{$w}||"-", " ";
}