Select Code to Download

...
for (sort keys %words) {
  my $siglen = length;
  next unless grep { $siglen == length } @{$words{$_}};
  ...

   . . .
   # push @{$words{$signature}, $_;
...
   }
   return $arg[0];
}