Select Code to Download

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