sub by_priority {

  (grep$_,map-($a=~/$_/)||$b=~/$_/,qw(ORGANIZATION SERVICE FAQ))[0]
    or$a cmp$b
}