sub hashify_words  {
use strict;
use warnings;
use 5.010;
use File::Slurp;
use List::MoreUtils qw( zip );

my ($file1, $file2) = @_;
say "file1 is $file1";
say "file2 is $file2";

my @file1lines = read_file($file1);
my @file2lines = read_file($file2);
chomp(@file1lines); 
chomp(@file2lines); 
say "keys are @file1lines";
say "values are @file2lines";

my %hash = zip @file1lines, @file2lines;
say "-----";
print_hash(\%hash);
return \%hash;
}