Help for this page
my @sorted = (sort {$count{$a} cmp $count{$b}} keys %count);
my @sorted = sort {$count{$a} <=> $count{$b}} keys %count;
$ perl -le' my @strings = qw( QS DD DFD SD QS QS QS DD DFS ); ... ' QS