for my $i (0..$length-1){
               push(@array, substrg($zeile, $i, 1));
}