The Stony Brook Algorithm Repository is a great resource for problems like this, and they even have a discussion of your problem here that offers a few options and code (though not in Perl ;-().

--
I'd like to be able to assign to an luser