Select Code to Download

    for (@$ref2) { $_ = '' unless defined }

while (my $ref2 = $sth2->fetchrow_hashref()) {
   my %tmp = %$ref2;
...
   }
   push @{ $tablist{$user_table} }, \%tmp;
}