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";