There's always The Perl Review I suppose :)

Yea Brian :)

--
seek(JOB,$$LA,0);