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