#!/usr/bin/perl -w

use strict; 

my @array = ( [1,1,1],[2,2,2],[3,3,3] );

for my $i ( 0..2 ) {
	@{$array[$i]} = (0) x 3;
}

for my $i ( 0..2 ) {
	for my $j ( 0..2 ) {
		print "-".$array[$i][$j];
	}
	print "\n";
}