当数组的顺序根据程序的运行位置而改变时，如何在perl中更改数组的元素？

EDIT: Figured it out using a subroutine and a whole lot of if statements. I've appended the working code to the bottom of the question (since it won't let me post an answer) in case someone comes across a similar issue, with the disclaimer that I'm a mega-novice and the code probably isn't EDIT: Figured it out using a subroutine and a w