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