push @filtered_responsearr, \%filtered_response;

##</code><code>##

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

##</code><code>##

my( $response, @fields ) = @_;

##</code><code>##

@filtered_response{ @fields } = @response{ @fields }