foreach my $suffic( 

  sort {

     length($b) <=> length($a)

     or

     $a cmp $b

  } keys %sufdata)