my @b = @$refA;

##</code><code>##

sub Foo
{
    my $refA = shift;
    $refA->[0] = "hello";
    $refA->[1] = "world";
    $refA->[2] = "Perl";
}