problem get min number in array

hello
i writ this script but not work

:global a 5;
:global b 6;
:global c 6;
:global d 1;
:global e 0;
:local minindex 0;
:local myco {$a,$b,$c,$d,$e};
:local min [:pick $myco 0];
:for cm from 0 to 4 do={
:local nextco [:pick $myco $cm];
if ($min>$nextco) do={set minindex $cm;set min [:pick $myco $cm]; }
}
:put $minindex;

please help me
:frowning: