there is a perl switch module you can get.
besides that I think you have to if..elsif..else it

jjdraco
learning Perl one statement at a time.