$ perl -wE'
my @primfaktoren = (2,2,2,3,17,17);
ausgabe(\@primfaktoren);
sub ausgabe {
    my ($primfaktoren) = @_;
    my $counter1 = $#$primfaktoren;
    say $counter1;
}'
5