#!usr/bin/perl -w
use strict;

my @A=(
    [2, 2, 2],
    [2, 2, 2],
    [2, 2, 2],
  );