Mine

    $u = 0;
    @crazy = ();
    while ($u < length($txt)) {
        my $calculate = $width/($u+1);

        push (@crazy, $calculate);
    } continue {
        $u++;
    }