sub get_list{
use strict;
use warnings;
use 5.010;
use File::Slurp;

my $file = shift;
my @lines = read_file($file);
chomp(@lines); 
s/^\s+|\s+$//g for @lines;
@lines = grep length, @lines;
return @lines;
}

sub zip_lists  {
use strict;
use warnings;
use 5.010;
use List::MoreUtils qw( zip );

my ($file1, $file2) = @_;
my @file1lines = get_list($file1);
my @file2lines = get_list($file2);
say "keys are @file1lines";
say "values are @file2lines";
my %hash = zip @file1lines, @file2lines;
return \%hash;
}


##</code><code>##

my $word_hash_ref = zip_lists($vars{'words'},$vars{'subs'});
say "in main";
my %hash = %$word_hash_ref;

# main control
my $check = join '|', keys %hash;
 
binmode STDOUT, ":utf8";
open(my $hh, "<:encoding(UTF-8)", $vars{'source'})
    || die "can't open UTF-8 encoded filename: $!";
while(<$hh>){
chomp;
$_ =~ s/($check)/$hash{$1}/gi;
say "$_";
}