Select Code to Download

sub get_list{
use strict;
use warnings;
...
my %hash = zip @file1lines, @file2lines;
return \%hash;
}

my $word_hash_ref = zip_lists($vars{'words'},$vars{'subs'});
say "in main";
my %hash = %$word_hash_ref;
...
$_ =~ s/($check)/$hash{$1}/gi;
say "$_";
}