Hallo Chris!
Ohne "Hardcore"-Perl wuerde ich vorschlagen, als Parameter eine Kennung zu uebergeben und dann mit if, elsif bzw. mit SWITCH: Block arbeiten. Siehe http://www.perl.com/pub/doc/manual/html/pod/perlsyn.html#Basic_BLOCKs_and_Switch_Statemen
Gruß
Thomas