# 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++;
}

print "zeile 3: $matrix[3]\n";

print "eintrag (3,2): ${$matrix[3]}[2]\n";
print "eintrag (3,2): $matrix[3]->[2]\n";
print "eintrag (3,2): $matrix->[3]->[2]\n";
print "eintrag (3,2): $matrix[3][2]\n";