Help for this page
my %serchstrx={'$and' => []};
use Data::Dumper; ... your code ... print "Search: ", Dumper(\%serchstrx),"\n";