Select Code to Download

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