open WORDS, "<", "wordlist" or die $!;
chomp ( my @words = <WORDS> );
close WORDS or die $!;

open PWFILE, "<", "passwordfile" or die $!;
while ( <PWFILE> ) {
    chomp;
    foreach my $word ( @words ) {
        if crypt($word, $_) eq $_ {
            print "password is $word!\n";
            last;
        }
    }
}
close PWFILE or die $!;