my @NI_index = grep { $NI[$_] == min @NI } 0 .. $#NI;