sub names {

	my $obj = shift;
	my @names = @{ $obj->{'names'} };

	return @names;

}