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