gistfile1.perl

pmichaud@plum:~/rakudo$ cat xyz
sub arr($key, Mu $value) {
    Pair.new( key => $key, value => $value );
}


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

my $y = Pair.new( key => 'a', value => (4,5,6).item );
say $y.value.list;

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