Select Code to Download

my @loop;
while (my @cols = $sth->fetchrow_array) {
    push @loop, { table_name => $cols[0] };
}
$tmp->param(loop => \@loop);