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

##</code><code>##

my %matrix = (NI => [1 ,1 ,3 ,4] );

##</code><code>##

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