sub function {
        my ($arrayRef)=@_;
        printf ("%-90s | %-s \n", 'TEXT','TEXT');
        printf("%-s\n",'-'x(23+length($arrayRef->[1]->[9])));           # die Laenge des Wertes im Array herausfinden
        foreach my $array (@{$arrayRef}) {
                printf "%-90s : %-s\n", $array->[5], ${$array}[9];
        }
        print "\nAnzahl: ", scalar(@{$arrayRef}), "\n\n";
}