Select Code to Download

my $statement1 = "SELECT files FROM catalog WHERE words LIKE %".$word.
+"%";
$sth1 = $dbh -> prepare($statement1);
$sth1 -> execute();

my $find_files = $dbh->prepare(q{
  SELECT files
...
    ...
  }
}

$sth2 = $dbh ->prepare("select filename, type from library
  where filename = $file_index 
  and".$rule_append);

my %search_library = (
  email => $dbh->prepare(q{
...
      AND (filetype = 'email' OR filetype = 'article')
  }),
);

for my $w (@words) {
  $find_files->execute("%$w%");
...
    }
  }
}