gistfile1.perl

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


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

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

my $z = arr('a', Seq.new(4,5,6).item);
say $z.value.list;

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