my $find_files = $dbh->prepare(q{
  SELECT files
  FROM catalog
  WHERE
    words LIKE ?
});

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