Select Code to Download

use strict;
use warnings;
...

print "$_: $ss{$_}\n" for sort keys %ss;
print "@cn1_new\n";

apple: 3
banana: 1
...
lemon: 1
orange: 1
apple orange grape lemon banana