#!usr/bin/perl -w

@Z1=(2, 2, 2);
@Z2=(2, 2, 2);
@Z3=(2, 2, 2);

@A=(\@Z1, \@Z2, \@Z3);