sub _getGood {
    my ($self,@args) = @_;
    print "_getGood()", Dumper $self->{_good};
    return @{$self->{_good}};    
}