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