@letters = ("a", "b", "c", "d", 
"e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", 
"x", "y", "z"); 
@ziffern = ("1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "a", "b", "c", "d", 
"e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", 
"x", "y", "z"); 






$siz = 7;

for $n (1..100) { 
   for ($i=0; $i<$siz; $i++) { 
      if ($i==0 or $i==1 or $i==2) {
           $wort .= $letters[rand(26)]
         } else {
           $wort .=$ziffern[rand(36)];
        }
   }

print  $wort . "\n"; 
}