my @NI = (1 ,1 ,3 ,4);
my @NI_index = grep { $NI[$_] == min @NI } 0 .. $#NI;
print "@NI_index";