sub Populate{
...
  $self->ConfigSpecs( -infile => [ qw/METHOD infile INFILE]);
  $self->{ _configX } = [];
...
}

##</code><code>##

process( $dlg->{ _configX } );

##</code><code>##

sub Populate{
...
  $self->ConfigSpecs( 
    -infile => [ qw/METHOD infile INFILE],
    -configx => [ qw/PASSIVE configx CONFIGX] );
...
}

##</code><code>##

$config = [];
$dlg->configure( -configx => $config );
process( $dlg->cget( "-configx" ) );

##</code><code>##

sub Populate{
...
  $self->ConfigSpecs( 
    -infile => [ qw/METHOD infile INFILE],
    -configx => [ qw/METHOD configx CONFIGX] );
  $self->{ _configX } = [];
...
}

sub configx {
  # get configX on configure;
  # return configX on cget;
}

##</code><code>##

$config = [];
$dlg->configure( -configx => $config );
process( $dlg->cget( "-configx" ) );