Select Code to Download

sub lcssw {
...
   @words{values %codes} = keys %codes;
   return join ' ', @words{ $lcss =~ /./sg };
}