my $use=1;
my @Rset=();

foreach $person (@Person2) {
        $use=1;
        foreach $field (@Fields) {
                if ($person->{$field->{key}} ne $field->{content}) {
                        $use=0;
                        last;
                }
        }
        if ($use) {
                push @Rset, $person;
        }
}
my $tc=time;