Select Code to Download

sub read_dict{
my $file=$_[0];
...
# return the hash of arrays!!!
return \%dict1;
}

if (grep {$_ eq $string} @uniq_strings) { $match++ ; }
    
...
                 }
        }
    }