package Class;

    @liste =(
                ["Perl", "dyn", "Wall"],
                ["Java", "stat", "Gosling"],
                ["C#", "stat", "Hejlsb."],
                ["Python", "dyn", "Rossum"],
                ["C++", "stat", "Stroust."],
                ["Basic", "stat", "Kurtz"],
                ["Obj C", "stat", "Love"],
                ["Eifel", "stat", "Meyer"],
                ["Ruby", "dyn", "Mats"],
                ["PHP", "dyn", "Lerdorf"]
                );

    my $listref = \@liste;


    sub new {
        my $classname = shift;
        my $self = {
                    zeiger      => 0,
                    maxspalte   => 2, #feste Anfangswerte nur hier zum Testen
                    maxzeile    => 9, #feste Anfangswerte nur hier zum Testen
                    daten       => $listeref
                    };
        return bless($self, $classname);
    }