for (my $i=1; $i<=$anzahl;$i++) {
        $lRand$i = int( ($may - length$t$i) / 2);
}
...