use YAML qw( Dump );

sub yarly { $_[0] = "O RLY?" }
my @a = ( "b", "c", "d" );
print Dump( \@a ), "\n";
yarly( @a );
print Dump( \@a ), "\n";

__END__

--- #YAML:1.0
- b
- c
- d

--- #YAML:1.0
- O RLY?
- c
- d