my $statement = qq(
           INSERT INTO dickens VALUES ($word, $Line{$word})
        );

##</code><code>##

my $sth = $dbh->prepare('INSERT INTO dickens VALUES(?, ?)');

# and then, as often as you want:
$sth->execute($line, $count);

##</code><code>##

   CREATE TABLE dickens (
           word VARCHAR(30),
           line INTEGER,
   );

##</code><code>##

foreach $word ( @theseWords ) {
   my @lines = split m/ ,/, $Line{$word};
   for (@lines){ 
      $sth->execute($word, $_);
   }
}