my $h_data1 = {
         '756' => {                                   
                   'firstname' => [                         
                                   '17833329',
                                   '17785333',
                                  ],
                   'lastname' => [                          
                                   '17785333',
                                   '17785974',
                                  ],
                   'pks' => [                              
                             '17833329',
                             '17785333',
                             '17785974',
                            ],
                   'time' => '0.00718307495117188',         # How long it took
                  },
         '755' => {                                    
                  'lastname' => [                          
                                  '17833329'
                                 ],
                   'pks' => [                               
                             '17833329'
                            ],
                   'time' => '0.00639796257019043',         
                  }
                   };

##</code><code>##

use strict;
use warnings;

use Test::More;
use Data::Dump qw/pp/;

sub ignore_fields {
	my $h_in = shift;
	my $h_out;
	my @to_ignore =qw(time);
	
	while ( my ($pk, $h_matches) = each %$h_in ) {
		my $h_filtered = { %$h_matches };
		delete @$h_filtered{@to_ignore};
		$h_out->{$pk}=$h_filtered;
	}
	return $h_out;
}

pp ignore_fields($h_data1);
pp $h_data1;


is_deeply(ignore_fields($h_data1), ignore_fields($h_data2), "is_deeply");