Hmm not sure if I understood what you mean, but maybe all you want to do is to use @ARGV instead of $ARGV[0], $ARGV[1], etc?
You could also do something like:

while (@ARGV) { local $_ = shift(@ARGV); ... }

giant