use v6; my @x; fill_x(@x); say @x.perl; sub fill_x(@x_ is rw) { for ^3 {.say; @x_.push($_)} }