foreach my $a (0..$#_) {
      $fields[$a]= shift; }