sub by_priority {
  for (qw(Organization Service FAQ)){
    $a=~/^$_/?return -1:
    $b=~/^$_/?return 1:1
  }
  return $a cmp $b;
}
[download]

fglock beat me to it. But same, idea different way to do it, and I think the same amount of strokes.

-enlil