$find = "find $args->{'path'}/ -name '$args->{'foo'}.*' -newer ~/start.txt ! -newer ~/end.txt | xargs grep -vh 'H\\|T' | awk -F, '{ if( \$1 !~ /\\// &    & \$1 >= $args->{'start'} && \$1 < $args->{'end'}){";
 
for (my $i = 1; $i <= $indices; $i++){
	$find .= "if(\$$args->{'index'.$i} ~ /^[0-9]+\$/ && \$$args->{'index'.$i} >= $args->{'min'.$i} && \$$args->{'index'.$i} <= $args->{'max'.$i} ){ print \$$args->{'index'.$i} }";
}
$find .= "}}' | sort | uniq -c | awk '{print \$2,\",\",\$1}'";
($edr,$stderr) = $args->{'ssh'}->capture2($find);
if($stderr){ print $stderr;}

@edr = split /\n/, $edr;

##</code><code>##

# io3 mloop, cin: 0, cout: 1, cerr: 0
# io3 fast, cin: 0, cout: 1, cerr: 0
# stdout, bytes read: 8 at offset 0
#> 30 30 20 2c 20 39 39 0a                                                                         | 00 , 99.
# io3 fast, cin: 0, cout: 1, cerr: 0
# stdout, bytes read: 0 at offset 8
# leaving _io3()
# _waitpid(22920) => pid: 22920, rc: 
Use of uninitialized value $edr in split at /home/bo/scripts/test.pl line 338.

##</code><code>##

# io3 mloop, cin: 0, cout: 1, cerr: 1
# io3 fast, cin: 0, cout: 1, cerr: 1
# stdout, bytes read: 15 at offset 0
#> 39 39 30 31 30 32 20 2c 20 32 30 34 36 32 0a                                                    | 990102 , 20462.
# io3 fast, cin: 0, cout: 1, cerr: 1
# stdout, bytes read: 0 at offset 15
# stderr, bytes read: 0
# leaving _io3()
# _waitpid(22922) => pid: 22922, rc: