use strict;

my @array = 1 .. 10;
my $num_per_row = 4;

foreach my $i (0 .. $#array)
{
    print $array[$i], ' ';
    print "\n" unless ($i + 1) % $num_per_row;
}
print "\n";