#!/usr/bin/perl

use v5.12;
use warnings;

use Time::localtime;

package t;

my @testliste;
my $maxspalte;
my $zeiger;

......

sub get_new{        # in der Datensatzliste wandern, Argumente <<,<,>,>>
    my $richtung = shift;
    my @return;

    if ($richtung eq "<<"){$zeiger = 0}
    
    elsif ($richtung eq "<" && $zeiger > 0){
        my $zz = $zeiger - 1;
        for ($zz; $zz > -1; $zz--){                           #zeile 195
            if ($testliste[$zz][-1] == 1){$zeiger = $zz; last}
        }                                                     #zeile 197
    }
    
    elsif ($richtung eq ">" && $zeiger < $#testliste){
        my $zz = $zeiger + 1;
        for ($zz; $zz < $#testliste + 1; $zz++){              #zeile 201
            if ($testliste[$zz][-1] == 1){$zeiger = $zz;  last}
        }                                                     #zeile 203
    }

    elsif ($richtung eq ">>"){$zeiger = $#testliste}
    
    for my $spalte (0..$maxspalte){      		      #zeile 207
        push (@return, $testliste[$zeiger][$spalte])
    }
    return @return                                            #zeile 210
}