Ich glaube ich wuerde given .. when verwenden dafuer. Sieht huebscher aus, benoetigt aber Perl Version 5.10.
Auf aelteren Perl Interpretern gibt es aber auch entsprechende Module. Wobei ich da mal gehoert habe das die z.T. leider verbuggt sind (Switch).