print reduce{ $array[$b] >=0 && $array[$b] < $array[$a] ? $b : $a } 0 .. $#array;