use Sort::ArbBiLex (
   'puma_sort'=> 
    "ʌ Ʌ
     a A
     b B
     c C
     d D
     ɖ Ɖ
     e E
     f F
     g G
     h H
     i I
     j J
     k K
     l L
     m M
     n N
     ŋ Ŋ
     o O
     p P
     r R
     s S
     t T
     ʈ Ʈ
     u U
     v V
     w W
     y Y
     z Z"
);

@foo = puma_sort(@foo);