Re:{2} Getting impossible things right (behaviour of keys)

Or even:

foreach my $suffic( 
  sort {
     length($b) <=> length($a)
     or
     $a cmp $b
  } keys %sufdata)
[download]

to sort both on length and alphanumeric