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

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

for my $arrayref (@A)
{
  my @B=@$arrayref;
  for my $zahl (@B)
  {
    print $zahl." ";
  }
  print "\n"
}