my %lookup_pwds;
$lookup_pwds{$_}++ for (@stored};
do {
	$pw = join(@chars[map{rand @chars} (1..17)];
} while ($lookup_pwds{$pw});