sub pop_texts {
  use strict;
  use 5.010;
  use File::Slurp;

  my ($rvars) = shift;
  my %vars    = %$rvars;
  my @fears   = read_file( $vars{fears} );
  my @causes  = read_file( $vars{causes} );
  for (@fears) {
    s/\s+$/ /;
    $_ = lc($_);
    s/^(\d+\. )(.) /$1 Fear of $2/;
  }
  for (@causes) {
    s/^\d+\./exists because/;
    $_ = lc($_);
  }

  #say "causes are @causes";
  my $text1 = '';
  for my $i ( 0 .. $#causes ) {
    $text1 = $text1 . $fears[$i] . $causes[$i] . "\n";
  }
  my $reftext = \$text1;
  return $reftext;
}