use strict;
use warnings;
use Data::Dumper;

my @somearray = (['1', 2], ['3', 4]);

print "Unreffed:\n" . Dumper (@somearray) . "\n";
print "Reffed:\n" . Dumper (\@somearray) . "\n";

push @somearray, (['5', 6], ['7', 8]);
print Dumper (\@somearray) . "\n";

@somearray = (['9', 10], ['11', 12]);
print Dumper (\@somearray) . "\n";

##</code><code>##

Unreffed:
$VAR1 = [
          '1',
          2
        ];
$VAR2 = [
          '3',
          4
        ];

Reffed:
$VAR1 = [
          [
            '1',
            2
          ],
          [
            '3',
            4
          ]
        ];

$VAR1 = [
          [
            '1',
            2
          ],
          [
            '3',
            4
          ],
          [
            '5',
            6
          ],
          [
            '7',
            8
          ]
        ];

$VAR1 = [
          [
            '9',
            10
          ],
          [
            '11',
            12
          ]
        ];