Select Code to Download

$a = 'one'; 
$b = 'two'; 
@d = ( $a, $b, \$b );;

use Storable qw[ freeze thaw ];;

...

pp $y;;
["one", "two", \"three"]

use Clone qw[ clone ];;

...
pp $x;;
["one", "two", \"three"]