#!/usr/bin/perl

use strict;
use warnings;

my @array = qw(1 22 333 4 555 6 7777 8 9999 10 11 121212 131313 14 15 16);

my $max = 3;                               # Umbruch nach 3 Werten
for my $i ( 0 .. $#array ) {
    print "\n" if $i and $i % $max == 0;   # Newline wenn mehr als $max Werte
    print $array[$i];                      # Wert ausgeben
    print ", " if $i != $#array;           # kein Komma wenn letztes Element
}