@RE_QUERY = sort { "$QUERY {$a}[3] $QUERY {$a}[2] $QUERY {$a}[0]" cmp "$QUERY {$b}[3] $ QUERY {$b}[2] $QUERY {$b}[0]" } keys % QUERY;

##</code><code>##

    $titles{$PathFilename} =  $title;
    $descriptions{$PathFilename} = $description;

##</code><code>##

    $RESULTS{PathFilename}[0]  = $title;
    $RESULTS{PathFilename}[1] = $description;