open USEDPW, 'logfile.txt' or die "Cannot read logfile: $!\"; my $seen; while () { chomp; $seen++, last if $pw eq $_; } print "Your unique password is '$pw'\n" unless $seen;