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

  my ($rvars) = shift;
  my %vars    = %$rvars;
  my @name   = read_file( $vars{name} );
  my @harm  = read_file( $vars{harm} );
  for (@name) {
    s/\s+$/ /;
    my $int = s/^(\d+\.)(\s+)(\w+)(\s+)(\w)(.)/$3$4$5/;
    say "int is $int";
    say "six was $6";
  }
  for  (@harm) {
    my $int = s/(^\d+\.)(\s+)(\w)(.)/was harmed by $3$4/;
    say "schmint is $int";
  }


  my $text1 = '';
  for my $i ( 0 .. $#name ) {
    $text1 = $text1 . $name[$i] . $harm[$i] . "\n";
  }
  my $reftext = \$text1;
  return $reftext;
}