while (<USEDPW>) {
   my $pw = @chars[map{rand @chars} (1..17)];
}
unless ($_ ne $usedpw) {
   print "Your unique ID is: $pw\n";
}

##</code><code>##

while (<USEDPW>)
{
   my $pw = @chars[map{rand @chars} (1..17)];
}
unless ($_ ne $usedpw)
{
   print "Your unique ID is: $pw\n";
}

##</code><code>##

print "Your unique ID is: $pw\n" if $_ eq $usedpw;