in reply to While loops with if

You have a semi-colon immediately after your if - remove it (and use some proper indentation): 
while (1) 
{
   my @chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
   if ($usedpw ne m/$pw/)
   {
      print "Your unique password is: $pw\n";
   }
}

[download]
Update: may i recommend perltidy? It will format your code for you.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom