my $ref = [1,2,3];

local our @row;
*row = $ref;
push @row, 4;

print @$ref;        # prints: 1234