use warnings;
use strict;

my @a = ("a", "b", "c");
Foo(\@a);
print "$_ " foreach(@a);

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

__output__

hello world Perl