open my $fh, '<', '/the/file/with/txtque'
  or die "unable to open ...: $!\n";
{
  local($/) = '~';
  while (my $txtque = <$fh>) {
    my $count = $dbh->do(...); # execute the INSERT statement here
  }
}