Select Code to Download

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

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

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