Help for this page
$ perl -Mstrict -Mwarnings -MList::Util=min -E ' my @NI = ( 1, 1, 3, 4 ); ... say qq{@NI_index};' 0 1 $