my @test_array = qw/foo bar test/;
print Dumper(@test_array);
test_array(\@test_array);
print Dumper(@test_array);

sub test_array {
	my $array_ref = $_[0];
	$array_ref->[1] ="whatever";
}