@Persons = (
    {
        fistname => "firstname",
        surname  => "lastname",
        age      => 25
        place    => "place",
    },

    {
        fistname => "another firstname",
        surname  => "another lastname",
        age      => 25
        place    => "place",
    }, # etc etc...
)

##</code><code>##

  <!-- this is just one of manu expressions -->
  <expr type="match">
    <field type="equal" key="age">25</field>
    <field type="equal" key="surname">aSurName</field>
  </expr>

##</code><code>##

foreach $field (@Fields) { # <- age and surname in this case
   scalar(@Persons)==0 && return 0;
   for ($i=0;$i<scalar(@Persons);$i++) { 
       ($Persons[$i]->{$field->{key}} eq $field->{content}) && next;
       # when a match field can not be found in a dataset  element, the dataset element can be removed from 

       # the dataset since all match fields have to be found in the dataset element this way the dataset element
       # does not have to be considdered in the next 
       # iteration (next match field)

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