#=====================================================================
+==========
my $db = ( $ENV{'SERVER_NAME'} !~ /varsa/ )
       ? DBI->connect('DBI:mysql:orthodox;localhost', 'root', '******'
+, {RaiseError=>1})
       : DBI->connect('DBI:mysql:skieros_orthodox;www.freegreece.net',
+ 'skieros_root', '******', {RaiseError=>1});
#=====================================================================
+==========


my @files = glob "$ENV{'DOCUMENT_ROOT'}/data/text/*.txt";

my @filenames = map {/([^\/]+)\.txt$/} @files;
my @dbfiles = $db->do( 'SELECT title, body FROM articles' );

foreach my $filename (@filenames)
{  
   unless( grep /^\Q$filename\E$/, @dbfiles )
   {
      open FILE, "<$filename" or die "Cannot open $filename: $!";
         my $data = <FILE>;
      close FILE;

      unless( grep /^\Q$data\E$/, @dbfiles )
      {
         $db->do('INSERT INTO test (title, body) VALUES (?, ?)', undef
+, $filename, $data)
      }
   }
}
[download]

1. @dbfiles doesn't contain what I thought
2. @dbfiles is filled using $dbh->do
3. I wonder what the return value of $dbh->do is?
4. I wonder if the DBI documentation mentions the return value of the do method?
OK, that should tell you why your code returns what it does. To get your code to do what you want, I'd recommend consulting DBI recipes.