#!/usr/bin/perl

use strict;
use warnings;

## first sample
print "---- 1. global \@array ----\n";
my(@aoa, @array);
for my $i (0..5) {
    @array = map { "#" x $_ } (0 .. $i);
    $aoa[$i] = \@array;
    print "$aoa[$i]\n"; # same memory address
}
print "@$_\n" for @aoa;

## second sample
print "\n---- 2. lexical \@array ----\n";
my(@AoA);
for my $i (0..5) {
    my @array = map { "#" x $_ } (0 .. $i);
    $AoA[$i] = \@array;
    print $AoA[$i], "\n"; # different memory address
}
print "@$_\n" for @AoA;

## third  sample
print "\n---- 3. anonymous array reference ----\n";
for my $i (0..5) {
    my @array =
    $AoA[$i] = [ map { "#" x $_ } (0 .. $i) ];
    print $AoA[$i], "\n"; # different memory address
}
print "@$_\n" for @AoA;