Select Code to Download

push @filtered_responsearr, \%filtered_response;

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

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

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