foreach my $suffix (sort {length($b) <=> length($a)} keys %sufdata)