my ($cmd, $num, $fld_ref) = @_;
	my $found = 0; #false
	if ($cmd->[$num] eq "") {$found = 0} else {
	for (0..$#$fld_ref){
	   if ($cmd->[$num] eq $fld->[$_]) {$found = 1};
	  } 
	 }
	if not ($found) {print "ITEM what-cha-ma-calit is not valid ..."};