my $type = "add"; my $redo = given ($type) { "wiki_add2" when "add"; "wiki_edit2" when "edit"; when ("remove") { log("REMOVE") and "wiki_remove2" } default { "wiki_noneoftheabove7" } }; print "With type: $type, we could redo: $redo \n";