foreach $i (???) {
		push ( @some_animals, $animals{pets}[$i] );
	}