Select Code to Download

$dbh->prepare( build_query( $dbh, getQueryInfo() ) );
$sth->execute( getQueryVars() );

$dbh->prepare( build_query( $dbh, getBaseQuery(), getOrder() ) );
$sth->execute( getQueryVars() );

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

my @order = (
    [ Brand => 'ASC'  ],
    [ Model => 'ASC'  ],
    [ Year  => 'DESC' ],
);