use Data::Dumper qw( Dumper );
my @foo = qw( a b c );
my $x = [ \( @foo ) ];
print Dumper( $x ), "\n";
${ $x->[1] } = 'z';
print join( "\n", @foo ), "\n";
print Dumper( $x ), "\n";