my $sing_layer = $map->getLayerByName('single_parcel');

$sing_layer->{status} = $mapscript::MS_ON;

$sing_layer->{data} = "singprcl";

my $sing_layer_idx = $sing_layer->{index};

my $sing_shpfile = new mapscript::shapefileObj("singprcl",-1);

my $rectang = $sing_shpfile->{bounds};

undef $sing_shpfile;

$sing_layer->queryByRect($map,$rectang); #
** set of results **

$prcl_dim_layer->queryByFeatures($map,$sing_layer_idx);

my $prcl_dim_rslt_cache = $prcl_dim_layer->{resultcache};

my $prcl_dim_num_rslt = $prcl_dim_rslt_cache->{numresults};

my $lotdim_selected = new mapscript::shapefileObj("ltdimsel", $mapscript::MS_SHAPEFILE_ARC);

my $result_shape = $prcl_dim_layer->getResult(0); #
** resultCacheMemberObj **