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