$dbh->dbcmd($SQL);
$dbh->dbsqlexec;

my @fields = qw( Id Status StatusDate Severity Priority ProjectId SubSystem
    Process Name EnteredBy DateEntered Contact Closed DateClosed
    ClosedReason Summary );
my (@results,@data);

while ($dbh->dbhresults != NO_MORE_RESULTS and @data = $dbh->dbnextrow) {
    my %results;
    @results{ @fields } = @data;
    push @results => \%results;
}

@results = sort { $a->{Name} cmp $b->{Name} } @results;