package Foo;
use strict;

sub Test
{
    my @a = (1,2,3);
    my $aref = \@a;

    local (*aa) = $aref;
    
    push (@aa, 4); # line 11
    print "aa:",join(",",@aa),"\n"; # line 12
}

Test ();