Select Code to Download

sub Populate{
...
...
  $self->{ _configX } = [];
...
}

process( $dlg->{ _configX } );

sub Populate{
...
...
    -configx => [ qw/PASSIVE configx CONFIGX] );
...
}

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

sub Populate{
...
...
  # get configX on configure;
  # return configX on cget;
}

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