RosettaCodeData/Task/Deepcopy/Perl-6/deepcopy-2.pl6

9 lines
111 B
Raku

use MONKEY-SEE-NO-EVAL;
my %x = foo => 0, bar => [0, 1];
my %y = %x.perl.EVAL;
%x<bar>[1]++;
say %x;
say %y;