Thanks! The following seems to work. I appreciate all the help!

$sth->execute(@bind);
        my %xml_hash = ( dataset => [ ] );

        while (my $row = $sth->fetchrow_hashref ){
                push @{$xml_hash{dataset}}, $row;
        }

        my $cgi = CGI->new;
        print $cgi->header('text/xml');
       my $testxml = XMLout( \%xml_hash, NoAttr => 1, RootName => data
+set, );
        print $testxml;
        $sth->finish();
[download]