gistfile1.perl

pmichaud@plum:~/rakudo$ cat xyz
class XYZ {
    has $.v is rw;
}

sub arr($value) {  
    say $value.list;
    XYZ.new(v => $value);
}


my $x = arr((4,5,6));
say $x.v.list;

$x.v = (7,8,9);
say $x.v.list;
pmichaud@plum:~/rakudo$ ./perl6 xyz
456
4 5 6
789
pmichaud@plum:~/rakudo$