foreach my $c1 ('a'..'z') {
foreach my $c2 ('a'..'z') {
foreach my $c3 ('a'..'z') {
   my $pass = $c1 . $c2 . $c3;
   ...
}}}