perldl> p $indx = intersect( which($piddle>43), which($piddle<72) );