Sieht aus wie das switch case in Javascript. Wollte schon fragen, ob das Perl ist :)
Aber ein if then else wäre doch für diesen Code garnicht so lang. Ich kenne dafür keinen Ersatz in Perl.