Since he's a newbie, he was probably unaware of hashes, which is the "Perl way" to address this kind of problem. Without hashes, you get to self-flagellate with arrays and switches.

It's the fault of all the other languages that don't expose people to the concept of a hash.