my $ta=time();
foreach $field (@Fields) { # <- age and surname in this case
   scalar(@Persons)==0 && last;
   for ($i=0;$i<scalar(@Persons);$i++) {
       ($Persons[$i]->{$field->{key}} eq $field->{content}) && next;

        splice(@Persons,$i,1);
        $i--;
   }
}

my $tb=time();