Not that this has anything at all to do with Perl but have a look at your User Settings and try rearranging your nodelets. If I understand correctly, this is similar to what you are trying to do. The idea is that you allow the user to move one thing up or down in the list with each click.

-sauoq
"My two cents aren't worth a dime.";