gistfile1.perl

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

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


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

pmichaud@plum:~/rakudo$ ./perl6 xyz
456
4 5 6
pmichaud@plum:~/rakudo$