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