Select Code to Download

%data = << why dunno who them where there which this >>;

(why => "dunno", who => "them", where => "there", which => "this")

multi sub infix:=(List of Pair @assign is rw, List of Pair @values) re
+turns List of Pair {
  my %assign := *@assign;
...
  }
  return *%assign;
}

my $fish = "hest";
($sheep, $goats, $fish) := part Animal::Cat, @animals;

my $hest = "hest";
%result := ($sheep, $goats, fish => $hest) := part Animal::Cat, @anima
+ls;

($sheep, $goats, $fish => "hest") := part Animal::Cat, @animals;