my @array;

sub readfile($){
    open(DATEI, $_[0]);
    my @Zeilen = <DATEI>;
    close(DATEI);

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