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 "$_";
}