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