#!/usr/bin/perl
use strict;
use warnings;

my @AoA1 = ([1, 'a'], [2, 'b']);

my @AoA2;
push @AoA2, @AoA1;

$AoA2[0][0] = $AoA1[0][0];
print "$AoA1[0][0], $AoA2[0][0]\n";

$AoA2[0][0] ++;
print "$AoA1[0][0], $AoA2[0][0]\n";


##</code><code>##

1, 1
2, 1

##</code><code>##

1, 1
2, 2