foreach my $suffix (keys %sufdata)

##</code><code>##

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