>perl -wMstrict -le
"my %matrix = (NI => [2, 1, 1, 3, 4] );
 ;;
 my @NI_index;
 my $min;
 while (my ($i, $v) = each $matrix{NI}) {
   if(not defined $min or $v < $min) {
     $min = $v;
     @NI_index = ();
     }
   push @NI_index, $i if $v == $min;
   }
 print qq{@NI_index};
"
1 2