DB<148> @a= map { int rand 100 } 1..5 => (32, 4, 90, 79, 70) DB<149> sub minindex { reduce { print "@_\t$a:$_[$a],$b:$_[$b]\n"; $_[$a] < $_[$b] ? $a : $b } 0 .. $#_ } DB<150> minindex @a CODE(0xa353ea8) 0 1 2 3 4 0:CODE(0xa353ea8),1:0 CODE(0xa353ea8) 0 1 2 3 4 1:0,2:1 CODE(0xa353ea8) 0 1 2 3 4 1:0,3:2 CODE(0xa353ea8) 0 1 2 3 4 1:0,4:3 => 1