$anzahl = 100;
$wortlaenge = 7;

for (1..$anzahl) {
 my $wort;
 for $i (1..$wortlaenge) {
    if ($i < 4) {
         $wort .= chr ((int rand 26) + 97);
       } else {
         $wort .= int rand 10;
     }
 }
 print  $wort . "\n";
}