use strict;
use warnings;
use Array::Reform;
    
my $a = 1; my $b = 2; my $c = 3;
my $d = 4; my $e = 5; my $f = 6;
my $g = 7; my $h = 8; my $i = 9;

my @matrix;

push(@matrix, $a);
push(@matrix, $b);
push(@matrix, $c);
push(@matrix, $d);
push(@matrix, $e);
push(@matrix, $f);
push(@matrix, $g);
push(@matrix, $h);
push(@matrix, $i);

my $rowsize = 3; ####Number of rows
  
for my $row (Array::Reform->reform( $rowsize, \@matrix )){
	$,=" ";
	print @{$row}, "\n";
}

__END__
1 2 3
4 5 6
7 8 9