if (@order) {
    $query .= ' ORDER BY ' . 
        join ', ',
        map { $dbh->quote_identifier($_->[0]) . " $_->[1]" }
        @order;
}