sort with special order

Hi,

When I got a word list, I want it to be sorted with special order.
for example, I got this array:

("dog","is","a","there");

I want the sorted result is:

("there","is","a","dog");

How to code it? Thank you.

-- 
To unsubscribe, e-mail: beginners-unsubscribe@xxxxxxxx
For additional commands, e-mail: beginners-help@xxxxxxxx
http://learn.perl.org/