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