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