Or you could exploit the fact that the regex looks for the leftmost matching string, and do something like:

my $pattern = join('|',(sort {$a cmp $b} keys %sufdata));
if ($name =~ s/($pattern)$/$sufdata{$1}/o) {
  print "Suffix $1 -> $name\n";
  return;
}
print " no rule apply -> $name\n";
[download]

-Blake