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

##</code><code>##

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

##</code><code>##

multi sub infix:=(List of Pair @assign is rw, List of Pair @values) returns List of Pair {
  my %assign := *@assign;
  for @values {
     %assign{.key} = .value;
  }
  return *%assign;
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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