Select Code to Download

 my %sth;
foreach my $tab (@checklists)
{
...
    $sth{$tab}->execute($word);
    my $ret = $sth{$tab}->fetchrow_hashref();
}