package Animal;
# constructor
sub new {
	my $this = {};
	# object properties
	$this->{DNA} = [];

	bless $this;
	return $this;
	}

sub getDNA
	{
	my $this = shift;
	return "@{$this->{DNA}}";
	}

sub setDNA
	{
	my $this = shift;
	@{$this->{DNA}} = @_;
	return @{$this->{DNA}};
	}