package steps1;
require Exporter;

our @ISA    = qw(Exporter);
our @EXPORT = qw(
  pop_texts
);

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+$/ /;
  }
  for (@causes) {
    s/^\d+\./exists because/;
  }
  #say "causes are @causes";
  my $text1 ='';
  for my $i ( 0 .. $#causes ) {
    $text1 = $text1 . $fears[$i] . $causes[$i] . "\n";
  }
  my $reftext = \$text1;
  return $reftext;
}

1;