Select Code to Download

use strict;
use DBI;

...
while (my $results = $sth->fetchrow_hashref) {
    push @sites, $results;
}

use Win32::ODBC;

my @rows;
...
    my %data = $db->DataHash();
    push @rows, {%data};
}