#!/usr/bin/perl -w
use strict;
use 5.010;
use lib "template_stuff";
use steps1;

# main data structure
my %vars = (
  fears  => 'fears2.txt',
  causes => 'causes2.txt',
  width   => 50,
);
my $rvars  = \%vars;
my $return = pop_texts( $rvars );
say "returned was \n $$return";
__END__