#!/usr/bin/perl

use Data::Dumper;

my (@array);
$array[$_] = [ $_ x 3 ] for 1 .. 3;
print Dumper(@array);


for ($i = 0; $i <= $#array; $i++) {
  for ($j = 0; $j <= $#{$array[$i]}; $j++) {
    print $array[$i][$j] . "\n";
  }
}