свич на перле можно весьма разными способами сделать, я обычно это об хэш функций делаю, или об тернарный оператор
но вот для последнего мне очень не хватает простого сравнения $_ с чем угодно
иногда делаю чтото в духе sub is{$_ eq $_[0]} ну и потом:
for($foo){
   is 'qwe' ? do { ... }
  :is 'asd' ? do { ... }
  :()
}