my $submitted_pw = $_;
my $pw = grep($submitted_pw eq $_, @stored) ? $submitted_pw : join(@chars[map{rand @chars} (1..17)];