my $fname = join("/",$_[0]);
    my $INP = $_[1];
    
    open (FIN, "<$fname") or die "$fname$!";
    my @words =<FIN>;
    chomp @words;
    close FIN;