$idx = $arr[0];
       for(0..$#arr) {
                $idx = $_ if( ($arr[$idx]<0) || (($arr[$_] >= 0) && ($arr[$_] < $arr[$idx])) )
        }