#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @sq_matrix_3x3;

my @list = (1,2,3);
foreach (@list)        
{
    push (@sq_matrix_3x3, [0,0,0]); #creates a row with 3 elements
}
print "3x3 Matrix: ";
print Dumper \@sq_matrix_3x3;