gistfile1.perl

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


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


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