sub format_texts {
  use strict;
  use 5.010;
  use RTF::Writer;

  my ( $rvars, $reftext1 ) = @_;
  my %vars  = %$rvars;
  my $text1 = $$reftext1;

  my $rtf = RTF::Writer->new_to_file( $vars{word} );
  $rtf->prolog( 'title' => "List of fears" );
  $rtf->number_pages;
  $rtf->print($text1);
  $rtf->close;

  return 1;
}