sub i{my$a=pdl$_[0];minimum_ind(abs($a-$_[1]))}