field (\@GRD, 1, \@GRDF1);
                 field (\@GRD, 2, \@GRDF2);
                 field (\@GRD, 3, \@GRDF3);
                 field (\@GRD, 4, \@GRDF4);
                 field (\@GRD, 5, \@GRDF5);
                 field (\@GRD, 6, \@GRDF6);

      

##</code><code>##

     for (1..6) {
       field (\@GRD,$_,$GRDF[$_]);
     }
     

##</code><code>##

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

##</code><code>##

    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 ..."};