Select Code to Download

use strict; 
use warnings; 
...
    
$dbh->disconnect();

my @clumps=[
            {table=>'tb1',file=>"csvfile1.csv"},
            {table=>'tb2',file=>"csvfile2.csv"},
            {table=>'tb3',file=>"csvfile3.csv"}
           ];