for (my $i=0; $i<$length; $i++){
               push(@array, substrg($zeile, $i, 1));
}