my $type = "add";
my $redo = {
  add    => "wiki_add2",
  edit   => "wiki_edit2",
  delete => "wiki_remove3",
  }->{$type}
  || "wiki_noneoftheabove7";
print "With type: $type, we could redo: $redo \n";

##</code><code>##

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

##</code><code>##

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";

##</code><code>##

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";