# Auslesen des Textfiles
while ($q <= $m_line+2){
    chomp ($read_file[$q]);
    while ($i < $n_column+1){
        $start = index ($read_file[$q],";")+1;
        $matrix_entry = substr ($read_file[$q],$start);
        $stop = index ($matrix_entry,";");
        $read_file[$q] = substr ($matrix_entry,$stop);
        $matrix_entry = substr ($matrix_entry,0,$stop);
        $matrix_entry =~ s/ //gi;
        push (@matrix_m_line, "$matrix_entry");
        $i++;
        $j++;
    }
    push (@matrix, "@matrix_m_line");
    @matrix_m_line = "";
    $i=0;
    $q++;
}