sub field {
        my ($cmd, $num, $fld) = @_;
        $max = $#$fld;
        for ($i = 0; $i <= $max; $i++) {
           if (@$cmd[$num] eq @$fld[$i]) {